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COMPUTER  MEMORY  MANAGEMENT  AT  RAND* 

A.  C.  snetler 
S.  Glaeeraan 

The  Rand  Corporation!  Santa  Monica,  California 


I,  INTRODUCTION 


When  the  Rand  Computation  Center  (RCC)  flrat  put  ehe  360/65  into 

production  status  (December  1968),  the  memory  management  considerations 

were  confined  to  approximately  350KX  of  Processor  Storage  in  which  our 
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Job  stream  was  multlprogrammed.  The  problems  of  core  fragmentation 
and  appropriate  scheduling  algorithms  for  the  efficient  utilization  of 
tha  computer  resources  were  minimal  since  the  environment  was  dynamic 
in  the  sense  that  airy  particular  unfavorable  situation  lasted  a  rela¬ 
tively  short  period  of  time.  The  users  in  this  batch  processing  en¬ 
vironment  were  usually  unaware  of  memory  management  problems  as  long 
as  turnaround  was  not  affected. 

Approximately  18  months  ago  (September  1969)  RCC  added  one  million 
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bytes  of  IBM  LCS  for  use  in  supporting  an  on-line  system  for  our  users. 
When  the  LCS  wae  added,  there  were  Immediate  memory  management  problems 
needing  resolution. 

*Any  views  expressed  in  this  paper  are  those  of  the  authors.  They 
should  not  be  interpreted  as  reflecting  the  views  of  The  Rand  Corpora¬ 
tion  or  the  official  opinion  or  policy  of  any  of  its  government  or 
private  research  sponsors.  Papers  are  reproduced  by  The  Rand  Corpora¬ 
tion  as  a  courtesy  to  members  of  its  staff. 

Part  of  thiB  paper  was  presented  at  SHARE  XXXVI,  March  8-12,  1971, 
Los  Angeles, 

^One  K  is  equivalent  to  1024  bytes,  or  256  words  of  system  360  stor¬ 
age;  one  byte  has  4  bits;  one  word  is  composed  of  4  bytes. 

^Multiprogramming  is  a  software  mechanism  whereby  several  Jobe  can 
execute  concurrently  in  a  computer. 

LCS  is  slower-access  memory  that  can  be  added  to  a  computer.  The 
difference  between  the  Processor  Storage  access  speed  and  the  LCS  access 
speed  is  approximately  8  to  1;  hence  a  job  would  use  approximately  eight 
times  the  number  of  CPU  cycles  to  execute  in  LCS  as  would  be  required 
by  ehe  same  job  In  Processor  Storage. 
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The  batch  Joba  had  to  be  prevented  from  executing  in  LCS.  Acci¬ 
dental  execution  In  thla  s lover-speed  memory  would  have  created  aevere 
»rrmmHng  problems .  It  vcs  si  so  usueaaary  to  reserve  sco  rage  for  the 
Interactive  uyatem  when  It  was  not  resident.  In  the  case  of  an  ABEND 
operations  would  have  to  quiesce  the  operating  system  to  restart  the 
interactive  system  In  the  desired  memory  location.  This  action  was 
certain  to  affect  turnaround  for  the  batch  user  and  delay  restart  for 
the  on-line  user.  Though  not  a  primary  consideration,  the  ability  to 
reserve  regions  with  specific  memory  locations  for  on-line  applications 
was  also  found  to  be  desirable.  RCC  anticipated  having  several  users 
with  Interactive  programs  resident  in  the  machine  for  several  hours; 
with  standard  MVT  memory  management  core  fragmentation  could  have  be¬ 
come  a  problem.  By  restricting  these  users  to  predefined  regions,  core 
fragmentation  could  be  eliminated  for  these  applications. 

Hierarchy  Support^  was  rejected  as  an  alternative  for  managing 
memory  because  it  did  not  solve  the  problem.  After  the  special  SYSGEN 
required,  the  special  link-edits  required  for  tasks  using  the  Hierarchy 
Storage,  and  the  resident  memory  required  for  Hierarchy  Support,  the 
problems  previously  defined  still  existed.  TU*  batch  user,  by  using  a 
JCL  manual,  could  etill  execute  a  LCS,  though  now  it  would  be  purpose¬ 
ful.  The  LCS  would  still  have  to  be  quiesced  to  guarantee  the  inter¬ 
active  system  storage  placement.  The  core  fragmentation  from  long- 
running  interactive  user  teaks  would  still  be  s  part  of  the  Hierarchy 
Supported  environment. 

The  May  27,  1969  issue  of  the  IBM  Installation  Neualettsp  described 
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a  non-supported ,  release  dependent,  modification  to  the  Initiator  which 
allowed  memory  locations  to  be  assigned  to  a  particular  initiator.  This 
was  a  relatively  easy  modification  to  Implement,  costing  less  than  100 
bytes  of  non-resident  storage,  and  appeared  to  solve  our  problems.  This 

^Hierarchy  Support  is  a  SYSGEN  option  for  OS/MVT.  It  provides  for 
overt  selection  of  the  desired  memory  speed  for  program  execution  in 
alower-apeed  memory,  and  default  selection  of  Processor  Storage  for 
normal  job  execution. 

2 

The  Initiator  is  an  OS  system  task  which  handles  the  housekeeping 
activities  associated  with  getting  a  job  started  and  terminated  in  the 
system.  An  Initiator  handles  jobs  sequentially  in  the  system. 


modification  to  the  Initiator  provided  a  mechanism  whereby  when  the 
initiator  is  started  it  retains  a  region  of  a  fixed  aizet  executing 
the  tasks  it  attaches  in  this  tixed  region. 

Section  II  will  describe  the  current  environment  of  the  Rand  Com¬ 
putation  Center.  Section  III  will  detail  what  kind  of  memory  manage¬ 
ment  is  accomplished  through  fixed  initiators.  Section  IV  will  describe 
tha  externals  and  internals  of  Fixed  Initiator  implementation  and  Sec. 

V  will  summarize  the  effect  of  this  mechanism  for  memory  management. 


II.  INSTALLATION  ENVIRONMENT 


A  brief  description  of  the  P.CC  environment  should  aid  in  describ¬ 
ing  the  production  mode  of  operation  using  Fixed  Initiai-uts  to  Fea<.e 
Core. 

HARDWARE 

Figure  II-l  is  a  diagram  of  the  hardware  configuration  as  of  March 
1,  1971.  There  are  multiple  manufacturer's  equipment  attached  to  the 
IBM  360/65.  A  Calcomp  2314  disk  device,  Potter  7-track  tape  drives, 
and  1024K  of  AMPEX  ECM1  have  successfully  been  running  in  RCC,  at  a 
significant  cost  savings. 

SOFTWARE 

The  production  software  for  the  IBM  360/65  is  OS/MV?,  multiprogram¬ 
ming  with  a  variable  number  of  tasks.  There  are  several  local  modifica¬ 
tions  to  this  system.  Several  user  SVC's  have  been  Included  for  support 
of  the  Video  Operating  System  (VOS) ,  Conventional  Programming  System 
(CPS),  and  user  systems.  The  initiator  has  been  modified  to  allow  fixed 
and  floating  initiators.  Force  Task  Switching  has  been  Implemented  to 
resolve  lock-out  problems  for  our  on-line  users  (also  applies  to  the 
batch  environment).  Prior  to  Release  19.3  of  MVT  there  were  Rand  mod¬ 
ifications  to  collect  EXCP  counts  and  high  water  mark  for  memory  utili¬ 
zation.  Release  19.3  saw  the  end  of  the  accounting  patches  and  the 
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introduction  of  SMF  with  extensive  use  of  the  user  exits. 

WORKLOAD  CHARACTERISTICS 

RCC,  during  March,  is  converting  from  Release  17  to  Release  19.3 
of  MVT  on  a  360/65  with  the  usual  accompaniment  of  peripheral  devices. 

1  AMP  EX  ECM  is  a  faster  slow-speed  storage  with  an  access  speed 
of  2.8  to  1  compared  to  Processor  Storage;  that  is,  a  task  would  take 
approximately  2.8  times  the  CPU  to  execute  in  ECM  as  compared  to  an 
execution  In  Processor  Storage. 
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System  Management  Facilities  is  an  OS  SYSGEN  option  to  collect 
and  record  resource  usage  by  job. 


1800- IN  - 

1800  2701 

(002)  (00) 

vgs-in  I—  -  Fig.  1 1-1 --Hardware  Configuration  Chart 


Over  two  hundred  batch  jobs  are  processed  every  day;  these  are  logged 
In  over  the  counter  and  returned  via  the  PAL  box.  Over  one  hundred 
RJE  jobs  are  nrnr*ai«^  every  <^ay j  these  are  entered  through  the  two 
on-line  systems.  Two  on-line  systems,  having  RJE  facilities,  are 
available  for  users  between  9:00  a.m.  and  midnight  dally.  An  IBM/7044 
Is  emulated  approximately  30  minutes  a  night.  When  measured,  the  CPU 
activity  Is  above  the  70  percent  level. 

OBJECTIVES 

The  Rand  Computation  Center  has  specific  objectives  directing 
services  for  our  users.  First,  computing  must  be  provided  for  corpor¬ 
ate  and  research  data  processing.  Second,  hardware  and  software  sup¬ 
port  must  be  provided  for  users  developing  new  systems.  And  third, 
interactive  services  should  be  provided  for  the  users,  and  when  neces¬ 
sary  services  do  not  exist,  these  services  are  to  be  developed.  These 
objectives  result  In  one  major  constraint  on  our  system.  The  hardware 
and  software  must  be  maintained  in  a  state  that  permits  easy  implementa¬ 
tion  of  new  user  systems;  any  system  modifications  imposing  inflexi¬ 
bilities  usually  cannot  be  Implemented.  This  restricts  the  Improvements 
we  can  make  on  the  system  by  the  effect  on  the  flexibility  necessary 
for  the  users.  And  not  unlike  most  computer  Installations,  these  ob¬ 
jectives  and  constraints  are  subject  to  the  overriding  requirement  for 
stability  and  reliability  in  the  system. 


III.  FIXED  INITIATOR  CONTROL  OF  MEMORY 


Having  discussed  the  background  for  and  the  environment  of  our 
Fenced  System,  let  us  examine  how  It  is  used.  Figure  1II-1  is  a  memory 
allocation  diagram.  There  are  two  «nd  a  half  million  bytes  of  storage 
to  support  our  Batch  and  On-Line/RJE  processing.  We  have  51 2K  of 
Processor  Storage,  1024K  of  IBM  LCS,  and  1024K  of  AMPEX  ECM. 

BATCH  PROCESSING 

Figure  III-2  describes  the  Batch  Processing  environment.  In  this 
512K  of  Processor  Storage,  350K  is  available  for  the  Batch  jobs.  This 
is  Rand's  MVT  environment  with  3  or  4  active  initiators.  The  Reader 
and  Writer  tasks  are  not  resident  in  this  storage;  they  reside  in  the 
slower-speed  memory.  Core  Fencing  controls  the  batch  processing  by 
preventing  batch  Jobs  from  running  in  slower-speed  storage 

ON-LINE  PROCESSING 

Figure  III-3  describes  the  On-line  Processing  environment.  There 
are  three  user  tasks  and  one  system  task  that  make  up  the  on-line 
systems . 

The  first  of  these  user  tasks  is  a  Rand-developed  system,  VOS. 

The  Video  Operating  System  is  a  massage  switching  task  which  performs 
communication  between  active  OS  tasks  and  the  user  at  a  Video  Terminal 
via  a  2701  data  line  between  the  IBM  1800  and  360/65.  Through  VOS  a 
user  at  a  Video  Terminal  can  communicate  with  any  or  all  on-line  systems 
active  in  OS.  And  since  VOS  can  provide  massage  paths  between  the 
Video  Terminal  and  any  tasks  in  the  system,  a  single  user  can  be  con¬ 
nected  with  several  tasks  at  ons  time.  There  are  24  Video  Terminals 
available  for  the  users. 

The  next  user  task  is  Simultaneous  Graphics  System  (SGS) ,  also 
a  Rand-developed  system.  It  is  a  text  editor  with  RJE  facilities. 

Up  to  10  users  can  be  supported  in  a  60K  region.  Communications  be¬ 
tween  SGS  and  the  users  is  through  the  VOS  system. 

The  third  user  task  is  CPS,  the  class  A  supported  Conversational 
Programming  System  with  Rand  modifications.  The  PL/1  subset,  CPS,  is 
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Fig.  II 1-1  — Memory  Allocation 
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BATCH  PROCESSING 


Fig.  Ill -2 — Batch  Processing 


Fig.  1 1 1-3— On-Line  Systems 
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provlded,  as  la  the  text  editing  with  RJE  fecilitiea.  Communication 
with  CPS  la  through  the  2701  to  the  2741  typewriter  terminala ,  or  through 
c'ne  VOS  to  the  Video  Terminala.  The  Video  Communication  with  CPS  ia  one 
of  the  Rand  modlficatlona  to  CPS. 

At  the  top  of  Fig.  III-3  ia  a  System  teak  called  DRIVER.  DRIVER 
ia  a  realdent  reader  facility  which  aequentlally  proceaaea  RJE  joba 
passed  from  either  SGS  or  CPS,  and  enters  these  joba  into  the  standard 
OS  job  queue.  CPS  or  SGS  can  pasa  RJE  joba  to  DRIVER.  Since  DRIVER 
is  a  system  task  it  muat  be  active  to  reserve  memory.  The  three  user 
tasks,  VOS,  SGS,  and  CPS  have  Fixed  Initiators  which  reserve  the  Storage 
for  them  when  they  are  not  resident. 

RJE  PROCESSING 

In  Fig.  III-4,  which  describes  RJE  Processing,  VOS  is  included  because 
the  video  facilities  are  also  available  to  the  RJE  processing  regions. 

There  are  three  228K  regions,  three  104K  regions,  and  one  64K  region. 

The  jobs  executed  in  these  regions  are  entered  Into  the  system  via  RJE 
through  DRIVER.  These  jobs  or  tasks  can  Include  any  processing  that  is 
normally  done  in  the  batch  mode,  With  limitations  on  tspe  and  disk 
mounts.  That  is,  normal  batch  processing  can  be  executed  in  these 
regions  if  the  user  is  willing  to  pay  for  the  alower-access  memory.  The 
purpose  of  these  regions  is  to  permit  user-developed  on-line  systems 
nonfragmented  storage  for  debugging  and  production  processing.  These 
regions  are  also  used  in  another  way.  They  can  be  reserved  for  projects 
which  require  rapid  access  to  the  system.  An  example  of  this  is  our 
Pseudo-50 . 

A  bit  of  an  explanation  is  necessary  for  the  Pseudo-50.  A  360/50 
with  256K  of  Processor  Storage,  a  5-drive  2314,  a  printer,  a  card 
reader/punch ,  and  a  sign-in  sheet  sat  in  one  corner  of  the  Computer  Room, 
where  the  users  ran  In  a  hands-on  mode.  These  users  also  had  access  to 
the  Video  system;  they  IPDed  the  360/50  and  ran  their  jobs  hands-on. 

In  order  to  s:ve  money  the  reader/punch  and  the  printer  were  con¬ 
nected  to  the  360/65  and  an  OS  Reader  and  Writer  were  provided  for  these 
devices,  as  Indicated  in  Fig.  III-5.  A  Fixed  Initiator  provided  a 


Fig.  II 1-4 — ROE  Processing 
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PSEUD0-50 


Fig.  I I 1-5 — Pseudo-50 
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300K  Fenced  Region  for  our  Paeudo-50 .  The  algn-ln  log  wee  maintained 
and  three  2314  drlvea  on  the  360/65  ware  made  available  to  thaae  uaera. 

The  360/50  CPU,  256K  Procaaaor  Storage,  and  the  5-drlve  2314  were  re¬ 
turned.  The  Pseudo-50  uear  could  a till  enter  hla  cards  through  the 
reader,  aending  the  job  into  the  atandard  OS  job  queue  on  the  360/65. 

The  job  would  be  picked  up  by  the  Fixed  Initiator  assigned  to  the  ap¬ 
propriate  Job  class,  and  when  the  job  completed,  the  printer  output  was 
directed  to  the  printer  or  card  punch  at  the  user  location;  hence  the 
Pseudo-50.  This  is  an  example  of  how  approximately  $20,000  per  month 
of  equipment  rental  was  saved,  and  the  user  had  effectively  the  same 
environment  as  the  hands-on  machine.  Without  Core  Fencing  through 
Fixed  Initiators  the  idea  of  a  Pseudo-50  could  not  have  been  accomplished. 

Figure  III-6  describes  the  On-line/RJE  Processing  System  with  its 
Fixed  Region/Fenced  Core.  Thera  la  purposeful  fragmentation;  some 
storage  ia  not  fenced  (l.e.,  between  DRIVER  and  VOS).  These  unfenced 
regions  are  reserved  for  Operation  Aids  and  the  Batch  Reader  and  Writers. 
Batch  User  jobs  are  not  able  to  be  initiated  in  these  fragments  because 
they  are  smaller  in  size  than  the  minimum  region  request  for  a  user  task. 
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Fig.  I I 1-6 — On-Llne/RJE  System 
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IV .  IMPLEMENTATION  OF  THE  FIXED  INITIATOR 


The  facility  for  managing  on-line  storage  in  a  multiprogramming 
environment  had  the  requirement  of  easy  implementation.  This  is  ex¬ 
panded  below  in  the  Externals ;  the  OS  modifications  necessary  for 
implementation  are  expanded  in  the  Internals. 

EXTERNALS 

The  Implementation  of  the  Fixed  Initiator  modification  is  rela¬ 
tively  straightforward.  The  Procedure  names  for  the  Initiator  to  be 
Fixed  must  start  with  a  common  alpha;  we  chose  F  for  fixed.  The 
region  parameter  on  the  execute  statement  for  these  initiators  specify 
the  fixed  region  required  by  the  Initiator.  The  set-up  for  the  normal 
memory  configuration  takes  about  20  minutes  for  a  Warm  Start.  Fig. 

IV- 1  illustrates  the  sequence  of  commands  currently  required  to  con¬ 
figure  the  system.  These  commands  are  executed  via  a  reader  procedure 
which  points  to  the  command  data  set  as  its  input  stream. 

INTERNALS 

The  modifications  for  Fixed  Initiators  have  changed  since  Release 
17.  The  Initiator  modules  have  been  rewritten  and  Fixed  Initiators 
now  require  modifications  to  four  modules  in  LINKLIB.  This  represents 
less  than  400  bytes  of  nonresident  code  in  these  four  modules. 

In  what  follows,  attention  is  called  to  IBM's  practice  of  iden¬ 
tical  naming  of  load  modules  and  control  sections  (CSECTs) .  Beware  of 
confusing  the  two.  Microfiche  names  appear  on  the  accompanying  charts, 
as  do  load  module  names.  Note  that  CSECT  names  are  not  represented 
on  Figs.  IV- 2  or  IV-3  (pp.  21-22). 

I.  Standard  Initiation  -  MVT 

The  initiation  task  in  an  MVT  environment  has  several  steady- 
state  conditions.  Currently,  at  Rand,  the  conditions  pos¬ 
sible  are: 

a.  Waiting  for  work — in  this  case  the  initiation  procedure 
is  represented  by  one  load  module  in  tne  link  pack  area. 
None  of  available  core  storage  is  assigned  to  the  initi¬ 
ation  task. 
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FIGURE  IV-1 
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b.  Job/step  initiation  processing — in  this  case  the  inlti- 

•  - . —  I  1 .-1  1  .  .  J  --  3 . .  1 n-, 
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these  reside  in,  and  are  executed  from,  the  link  pack  area. 
The  others  must  be  furnished  with  a  region  of  available 
core  storage.  This  allocation  of  core  is  carried  out 
dynamically,  under  standard  region  management  conventions. 
That  is,  the  region  is  freed  when  the  initiator  modules  re¬ 
linquish  control  (e.g,,  to  the  task  being  initiated). 

c.  Limbo — a  name  for  the  situation  in  which  a  user  job  step 
has  been  attached  by  the  initiator.  In  this  case  the 
initiator  is  represented  by  a  load  module  in  the  link 
pack  area  which  will  receive  control  when  the  job  step 
terminates.  The  initiator  proper  has  no  dynamic  storage 
assigned  it  at  this  time;  but,  the  attached  job  step  is 
running  in  a  region  obtained  for  it  by  the  initiator 
prior  to  the  attach. 

d.  Job/step  termination  processing— this  condition  is  simi¬ 
lar  to  (b),  above.  When  termination  processing  is  com¬ 
plete  the  dynamically  allocated  core  assigned  to  initiator 
load  modules  is  released  and  the  situation  reverts  to 
condition  (a)  or  (b),  above. 

II.  Fixed  Initiation  -  MVT 

An  IBM  Installation  Newsletter,  issued  while  Rand  was  on 
Release  17  of  MVT,  outlined  what  seemed  a  relatively  easy  way 
to  obtain  for  MVT  some  of  the  benefits  of  the  fixed  parti¬ 
tion  system  of  MFT.  Specifically,  the  modification  involved 
chauges  to  the  steady-state  conditions  described  above.  In¬ 
stead  of  releasing  the  region  assigned  to  the  initiator  load 
modules  when  the  initiator  is  waiting  for  work,  or  haB  attached 
a  user  Job  step,  the  region  is  kept  fixed  in  core.  Setting 
the  region  size  requested  in  the  initiator  procedures  to  ap¬ 
propriate  values  enables  the  system  to  more  efficiently  manage 
our  complex  mixture  of  permanently  resident  on-line  systems 
and  transient  batch  job  processing. 

III.  Implementation  of  Fixed  Initiation 

a.  For  Release  17  of  MVT — Implementation  involved  changes 
to  only  two  control  sections  within  one  load  module, 
IEFSD061.  The  single  further  requirement  is  that  the 
procedure  names  for  the  fixed  initiators  begin  with  the 
letter  F  (e.g.,  FGH10A,  FF228) .  Changes  to  control  sec¬ 
tions  are  described  as  follows: 

1,  CSECT  IEFSD061:  Code  was  Inserted  to  test  for  a  fixed 
initiator.  If  yes,  and  the  initiator  must  wait  for 
work,  the  wait  is  performed  in-line  instead  of 
transferring  control  to  load  module  IEFSD105  which 
normally  frees  the  initiator's  region,  and  then  issues 
the  wait  from  the  link  pack  area. 


2.  CSECT  IEFSD062:  Code  was  inserted  to  test  for  a  fixed 
initiator.  If  yes,  and  the  Job  step  being  processed 
itu|uiies  enqueuing  on  data  secs,  enqueuing  is  performed 
in-line.  If  yes,  and  no  enqueuing  is  required,  the 
in-line  enqueue  is  bypassed.  In  either  case,  control 
then  passes  directly  to  the  allocation  Interface  module 
IEFSD062  instead  of  transferring  control  to  module 
IF.FSD102  which  normally  performs  a  region  swap,  in 
addition  to  checking  for  the  need  to  enqueue  on  data 
sets . 

With  the  exception  of  the  above  changes  for  initiators 
whose  names  begin  with  F,  job  step  initiation  proceeds  in 
the  standard  manner.  Figure  III-2  (for  Release  17)  sum¬ 
marizes  where  the  changes  are  located  with  respect  to  the 
entire  procedure. 

For  Release  19  of  MVT — implementation  was  complicated  by 
several  rather  basic  changes  to  the  job/step  initiating 
procedure.  In  Release  19  some  parts  of  the  system  task 
control  routine  were  merged  into  the  initiator.  A  more 
detailed  explanation  of  these  changes  may  be  found  in  the 
MVT  JOB  MANAGEMENT  PLM  (GY28-6660) .  These  modifications 
required  a  reworking  of  the  system  changes  which  would 
allow  fixed  Initiation.  The  following  text  identifies, 
by  CSECT  within  load  module,  the  changes  necessary  to 
allow  fixed  initiation  with  Release  19. 

1.  Load  Module  IEFSD061 

o  CSECT  IEFSD062— this  module  retained  the  changes 
necessary  under  Release  17.  Code  was  added  to 
implement  a  "first  time  through"  flag.  This  pro¬ 
cedure  allows  a  starting  fixed  initiator  to  obtain 
its  core  through  a  standard  region  swap  in  module 
IEFSD102.  After  this  "first  time  through"  the 
flag  allows  a  fixed  initiator  no  further  access  to 
module  IEFSD102. 

o  CSECT  IEFSD061 — this  module  retained  the  changes 
necessary  under  Release  17.  Code  was  added  to 
remotely  reset  the  flag  in  CSECT  IEFSD062  whenever 
load  module  IEFSD061  was  loaded  via  an  XCTL  from 
modules  IEFSD060  or  IEFSD062. 

o  CSECT  IEFShiOA — code  was  added  to  remotely  reset 
the  flag  in  CSECT  IEFSD062  whenever  load  module 
IEFSD061  was  loaded  via  an  XCTL  from  module 
IEFSD263. 

o  CSECT  IEFWA2SD — code  was  added  to  remotely  reset 
the  flag  in  CSECT  IEFSD062  whenever  load  module 
IEFSD061  was  loaded  via  an  XCTL  to  entry  points 
IEFW42SD  or  IEEV4221  within  the  block  labeled 
"TERMINATION"  (see  Fig.  IV-3) . 
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o  CSECT  IEFSD065 — code  was  added  to  remotely  reset 
the  flag  in  CSECT  IEFSD062  whenever  load  module 
IEFSD061  was  loaded  via  an  XCTL  from  module 

T uwcnrtf  *"• 
a.  aw*  VVU  i.  ■ 

2.  Load  Module  IEFSD062 

o  CSECT  IEFSD062— code  was  added  to  test  for  a  fixed 
Initiator.  (As  before,  the  fixed  Initiator's  Job- 
name  must  begin  with  F.)  If  yes,  a  branch  is  en¬ 
abled  which  causes  the  region  of  core  containing 
the  Getpart  Work  Table  (GWT)  to  be  released.  The 
abeence  of  GWT  Is  u^ed  In  subsequent  code  as  an 
Indication  that  a  region  swap  at  attach-tlme  Is 
not  desired. 

3.  Load  Module  IEFSD263 

o  CSECT  IEFSD263 — code  was  added  to  test  for  a  fixed 
initiator.  If  yes,  code  la  bypassed  which  normally 
swaps  regions  just  prior  to  job  step  attachment. 
Another  fixed  Initiator  test  later  In  this  CSECT 
prevents  a  region  swap  upon  return  to  this  CSECT 
when  the  attached  job  step  given  up  control. 

Figure  IV- 3  (for  Release  19)  summarizes  the  above 
modifications,  and  locates  them  within  the  initiator 
control  flow. 


Fig.  I V-2 — Release  17 


*  CSECT  IEFW42SD 
(alias  IEFV4221) 
is  the  target. 


Fig.  IV-3 — Release  19 
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V.  CONCLUSION 


The  Fixed  Initiator  facility  ia  a  stable  and  reliable  modification 
to  the  MVT  system  at  Rand^phich  has  accomplished  our  objectives  and 
exceeded  our  expectations.  Fixed  Initiators  can  reserve  storage  for 
on-line  systems,  reserve  storage  for  guaranteed  access  applications, 
and  protect  the  batch  processing  from  accidental  execution  in  slower- 
speed  storage.  As  a  facility  for  memory  management  it  has  reduced  the 
problems  associated  with  controlling  three  access  speeds  of  memory. 


nfranuiA 


The  following  liatinga  reflact  the  control  sectiona  which  have 
been  modified  in  order  to  implement  fixed  initiation  on  OS/MVT  Releaae 
19.3.  The  patches  are  enclosed  by  rectangles. 
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T  I  TIE  '  IEFS0101-MS/1  PARTITION  RFPLACE  I  NT  FR  F  AC  F  ' 


*  r  r-  r  r*  t\  /  a 

aaj  itiaaj 


•  r  rr  t 


MAI  7 <S 
20768 
1500 
12  72 


*2833  013800 
*6092 

*01 53ft 1-0 15396, 01 5700-016960, 022200 
RALR  R12.0 

*  * 

*********************************************************************** 
*  * 

*  IEFSD101-MS/1  PARTITION  REPLACE  INTERFACE  * 

*  w 
*********************************************************************** 

*  •  * 

* 
* 

1272 
1272 
* 


*  STATUS  -  CHANGE  LEVEL  000 

* 

*  FONT  ION  TO  DETERM  1 N  THE  PARTITION  SIZES  NEEDED  FOR  ALLOCATION 

*  FOR  THE  JOB  STEP  AND  FOR  T ERRM I  NAT  ION . 

* 

*  ENTRY  POINT:  IEFS0062  FROM  IFFSOlftl  AND  1EFSDL64  AND  I FFSD1A6  * 

*  * 

*  INPUT:  REGISTER  ONE  CONTAINS  THE  LCT  ADDRESS  * 

*  * 

*  OUTPUT:  l CTPARM3  IN  LCT  CONTAINS  SURPOOL  NO.  AND  PARTITION  SIZE  * 

*  * 

*  EXTERNAL  REFERENCES  -  ABSOLUTE  LOCATION  1A  IS  USED  TO  PICK  UP  THE  * 

*  ADDRESS  OF  THE  CVT.  * 

*  * 

*  EXIT:  IEFSD102  -  PARTITION  REPLACE  MODULE  * 

*  * 

*  TARLES/WORKAREAS  -  LCT,  SCT,  MASTER  SCHEDULER  RESIDENT  CORE  AREA  * 

*  * 

*  ATTRIBUTES  -  REENTRANT  * 

*  * 

ft*#*#**#*###*#*##*#####**##*)*#*###***********  S'**##***#*#  *************** 
*  * 

USING  * , R 1 2 
USING  I EFLOT , R 10 
USING  I EFSCT , R9 
EJECT 

*********************************************************************** 
*  * 

*  THE  FOLLOWING  SECTION  OF  CODE  SERVES  ONLY  TO  IDENTIFY  THIS  MODULE  * 

*  IN  A  MEMORY  DUMP  * 

*  * 

* 
* 
* 
* 
* 

FIRST  DS  OH  * 

*  * 

*********************************************************************** 


B 

FIRST 

DC 

X'CCCC' 

DC 

C'  IEFSDI01 

DC 

X 1 06081966 

DC 

X'CCCC' 

DS 

OH 

*****************! 

EJECT 

LR 

R 10, R 1 

LR 

R4 , R 13 

GETMAIN  R,LV=72 

LCT  ADDRESS 


SMF1 

SMF1 


onopooon 

z>r»/\y  r\  r\  r\  /-\ 

000420 19 
000450 1 R 
00050014 
00055019 
OOOftOOOO 
OOOROOOO 
OOIOOOOO 
00120000 
00140000 
00 1 60000 
001 ROOOO 
00200000 
00220000 
00240000 
00250019 
00260019 
00280000 
00300000 
00320000 
00340000 
00360000 
00380000 
00400000 
00420000 
00440000 
00460000 
00480000 
00500000 
00520000 
00540000 
00560000 
00580000 
00600000 
00620000 
00640000 
00660000 
00680000 
00700000 
00720000 
00740000 
00760000 
00780000 
00800000 
00820000 
00840000 
00860000 
00880000 
00900000 
00920000 
00940000 
00960000 
00980000 
01000000 
01002018 
01004018 
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1  H 

R  1  3 ,  H  1 

SMF  1 

US  I  MG 

CVTUSECT.R 1 

CVT 

AUDRFSSAHl L I TY 

M3  84  9 

L 

R  1  .CVTPTR 

AnilHFSS  (IF  rv/T  ul  it 

L 

R  1  .CVTTCHP 

GFT 

TCH  PTR  S 

M  3  8  4  4 

llRflP 

R  1 

M3R49 

L 

R  l  »D4 ( R 1 ) 

GFT 

DUH  TCH  FflH  S«F  F,  ALLUC 

M3R49 

ST 

R  1  » LC  T  TCBA 1) 

PUT 

OUR  TCH  ADDR  IN  LC.T 

M3R49 

LR 

R  1  .  R  1  n 

SMF  1 

L 

R  16, VCUNSME 

GO  Til  SMF  INIT  FXIT 

SMF  1 

B  A  L  R 

R14.R15 

PASS  LCT  IN  R 1 

SMF  1 

FRFFMA IN  R  *  1  V=72.A=(R13> 

SMF  1 

LR 

R  13  ,  R  4 

SMF  1 

L 

R2  ,UMCAP 

LI1A0  PTR  TO  TRACK  STACK 

INFO 

t. 

R2 ,0 ( R2 ) 

LOAD  PTR  TD  STACK 

LA 

R  2 , 0  (  R  2  ) 

GET  RID  DFIIPPER  HYTE 

LTR 

R  2  ,  R  2 

IF  ADDR  IS  ZERO,  MU  STACK-  SCI 

HC 

8,SD101005 

BRANCH  AROUND 

LR 

R  5  ,  R  1  3 

AOOR  IS  NOT  ZERO  -  SAVE 

REG 

LR 

LA 

XC 

L 

HALR 

LR 

LR 


R13.R2 
R  1  t  OMGR  1 
DM  POP!  1  ) 


OMPOP 


R  l  6  * IFFSDSTP 
R14.R15 
R7,R16 
R  1  ,  R  1  3 


SIU01005 


FRFFMA  [N  R  ,  I.  V  =  72  ,  A=  (  l  ) 
l.R  R13,R5 
LTR  R  7  *  R  7 
HC  8,  SD101005 
LA  R  1  * X  •  0110 • 

SLA  R1.12 
ABEND  I  R  1 )  » DUMP 
EDI I  * 

XC  LCTINTSWIDI) .LCTINTSW 

I.  R9,LCTSCTAD 

L  R4 » 16 

USING  CVTDSECT,R4 
L  R5,CVTMSER 

USING  8ASE.R5 
LH  R  7 , B AM  I NP AR 
DR  11 P  R4 

L  R4 » LCT  JCT  AD 

USING  JCT.R4 
TM  JCTJSTAT, JCTABEND 


POINT  TO  SAVE  AREA  IN  STACK 
LOAD  PTR  Til  OMPA 
CL  FAR  IIP  CDOE  FOR  PURGE  RTN 
NUT  Til  CUNFUSF  IT  WITH  DELETE 
AIH1R  OF  STACK  PURGE  PGM 
GO  TO  PURGE  AND  FREE  THE  STACK 
SAVE  THE  RETURN  CODE 
LOAD  PTR  OF  RETURNED  SAVE  AREA 
AMO  FREE  IT 
RESTORE  REGISTER 
TEST  RETURN  COOE  —  IF  IT  0, 
RETURN  WAS  NORMAL  t  BRANCH 
I/O  ERROR  IN  TRACK 


STACKING 
DHO  ABEND 

2 FRO  INTERNAL  SWITCHES 
GFT  SC T  ADORFSS 
LOAH  CVT  A DDR 

LOAD  MASTER  RES  CORE  AOOR 

LOAD  MINIMUM  PARTITION  SIZE 

LOAO  JCT  ADDRESS 


20768 

2076B 

20768 

1272 


87 


TM 


BZ 
CL  I 


HAS  ARFND  DCCUREO  WHICH  MIGHT 
ALLOW  A  FOLLOWING  STEP  TD 
FXECUTF 

NO,  GO  TFST  JOB  FAIL  AND  JOB 
FLUSH  BITS 

SCTABCNn.SCTEVEN+SCTONLY 

VES,  IS  THIS  STEP  TO  RUN  AFTER 
THE  ABEND 

NO,  GO  SET  UP  FOR  MINPART 
WERE  EIGHT  CONDITIONS  PRESENT 
FOR  THIS  STEP 

YES,  NOT  EVEN/ONLY,  GO  SET  UP 
Til  GET  MINPART 


S0101006 


SD101007 

SCTABCMO+2,0 


BNE  SD101007 


010060  IB 

01006214 

njnnuiu 

01006614 
01006814 
01007019 
01007?  19 
0 10080  1H 
01010018 
01012018 
01014018 
01016018 
01020000 
01040000 
01060000 
01080000 
01 100000 
01120000 
01140000 
01160000 
01180000 
01200000 
01220000 
01240000 
01260000 
01280000 
01300000 
01320000 
01340000 
01360000 
01370018 
01380018 
01390018 
01400000 
01410019 
01420000 
01460000 
01480000 
01500000 
01520000 
01520717 
01521417 
015221  17 
01522817 
01523517 
01524217 
01524917 
01525617 
01526317 
01527017 
01527717 
01528417 
01529117 
01529817 
01530517 
01531217 
01531917 


-27- 


B 

SD10100H 

THIS  STEP  HILL  BE  FXFC.MTFl)-  GO 

01  5326)  7 

4 

OFT  RFOUFSTEO  REGION 

0  153 3  3  1  7 

5  (710100ft 

EDO 

* 

/l  1  *i  *4  /./■»»  -7 

TM 

JCT  JST  AT , X 1 44 ' 

IS  JOB  FAIL  OR  FLUSH  BIT 

IlN 

CR17 

0] 53471 7 

HZ 

snioiooR 

NO.  GO  GET  RFOUFSTFO  REGION 

01 535417 

S0101007 

01 

LCT1NTSW.LCTMINRG 

JOB  E  A  1  1  INOir.ATE  MIMPAR 

1.2  72 

01 586419 

XC 

SCTMSAOR(OB) »  SC  TMS ADR  ZERO  ADDRESSES 

1272 

01 5374 )9 

SDlOlOOfl 

FOll 

£ 

0154031 7 

*  THIS 

ROUTINE  BUILDS  THE  GETPART  WORK  TABLE. THIS  TABLE  IS 

TO  BE 

LSI  7 

0] 543017 

*  USED  AS  A  PARAMETER  LIST  F(IK  LIST  FORM  DE  GFTMAIN  TO  OBTAIN  A 

L  S  1 7 

01 54401 7 

#  REGION 

LSI  7 

01 5450 1 V 

LA 

R0.GPMINPAR+4-GFTPTWT  LOAD  I.FNGTH  OF  GWT 

L  S  1  7 

01 552017 

LA 

R  8  *  T  COR  F 

GET  CORE  FROM  SUPERVISOR 

CORF 

L  S  1  7 

01 5550)7 

SLL 

RB.24 

L  S  1 7 

01558017 

OR 

R  0  *  R  P 

PLACE  SUHPnriL  +  LENGTH  IN 

Rf) 

L  S  1  7 

01 5ft 10 17 

GETMAIN  R,LV=(0) 

GET  CORE  FOR  GF  TP  AR  T  WK  TBI.F 

L  S  1 7 

01  5  ft  4  0 ) 7 

LR 

R  B  ( R  1 

LSI  7 

01  5(570]  7 

USING 

GfilPTWT  *RB 

L  S  1  7 

0) 570017 

MVC 

GPAOOHO ( ft  I .SCTMSADR 

MOVE  HIERARCHY  ADDRESSES 

I  NTO 

CR  1  7 

01573017 

»< 

WORK  TABLE 

CR17 

015  715017 

SLL 

R7.M10 

MULTIPLY  BY  I 024 

12  72 

01577015 

MV  I 

GPCODF . UNCONOGM 

12  72 

01 5780 1 9 

MV  I 

GPSUBP,PnnL247 

I  NO  I  C  A T E  SIIBPOOL  247 

127? 

01579019 

ST 

R 7 » GPM I  NEAR 

SET  UP  EUR  REGISTER  FORM 

1272 

01 5B0019 

MV  I 

GPMINPAR.P00L247 

OE  GETPART  IE  ERROR 

12  72 

01 581 019 

MVC 

GPAnnH0R(04) .GPAOOHO  SAVE  ORIGINAL  ADDRESS 

1272 

01 582019 

l.H 

R  1 1 . SCTMSSZF 

HO  SIZE  FROM  SCT 

12  72 

01 5H3019 

SLL 

R11.M10 

MULTIPLY  BY  1024 

1272 

0  1  5  R  4  0 1 9 

ST 

Rll.GPS  IZEHO 

SIZE  INTO  GWT 

1272 

0  1  5  B  5  0  1 9 

LH 

R3.SCTLCSSZ 

HI  SIZE  FROM  SCT 

1272 

0 1  5Rftfl  1  9 

SLL 

R3.M10 

MULTIPLY  BY  1024 

1272 

01 5B7019 

ST 

R3.GPS1 ZEH1 

SIZE  INTO  GWT 

1272 

01 5RR019 

MV  I 

GPSIZEH1.ENDLIST 

INDICATE  END  OF  LIST 

1272 

015R9019 

TM 

LCTOPSW2.LCTINTHO 

TEST  FOR  HI ER  ZERO 

1272 

01590019 

BO 

SQ10110 

BRANCH  IF  HIFK  ZERO 

127? 

01591019 

TM 

LCT0PSW2.LCTINTH1 

TEST  FOR  H I ER  ONE 

1272 

01592019 

BZ 

soioiog 

BRANCH  NOT  Hi ER  ONE 

1272 

01593019 

r.i 

LCTINTSW.LCTIHIER 

INIT  RUN  IN  HI ER  ONE 

1272 

01594019 

AR 

R3.R11 

AOO  REGION  REQUESTS 

1272 

01595019 

ST 

R3.GPSI ZEH1 

STORE  IN  HI  SIZE 

1272 

01596019 

MV  I 

GPSIZEH1.ENDLIST 

INOICATF  END  OF  LIST 

127? 

01597019 

xc 

GPSIZEH0(I)4)  .GPSIZFHO  ZERO  HO  SIZE 

1272 

0159HO19 

B 

SO  10 1 13 

1272 

01599019 

SD10109 

LTR 

R11.R11 

TEST  FOR  HO  SIZE 

1272 

01600019 

BNE 

SO  10 1 105 

1272 

01601019 

LTR 

R3.R3 

TEST  FOR  HI ER  ONE 

1272 

01602019 

BE 

SO  10 1 105 

BRANCH  DEFAULT  TO  ZERO 

1272 

01603019 

01 

LCTINTSW.LCTIHIER 

INIT  RUN  IN  HI ER  ONE 

1272 

01604019 

B 

S010113 

1272 

01605019 

SD10110 

AR 

R11.R3 

AOO  REGION  REQUESTS 

1272 

01606019 

ST 

Rll.GPSIZEHO 

STORE  IN  HO  SIZE 

127? 

01607019 

XC 

GPSIZEH1 (04) .GPSIZEHl  ZERO  HI  SIZE 

1272 

01608019 

SR 

R3.R3 

ZERO  HI  SIZE  IN  REGISTER 

1272 

01609019 

SD101105 

LA 

R14.GPA0I HO 

SET  UP  PTR  TO  ADDRESS 

1272 

01610019 

ST 

R14.GPAOOLT 

LIST  OF  HIERARCHIES 

1272 

01611019 

LA 

R 14 . GPS  I ZEHO 

SET  UP  PTR  TO  RFGinN 

1272 

01612019 

ST 

R14.GPSIZEA 

SIZE  LIST  OF  HIERARCHIES 

1272 

01613019 
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LTR 

R  3 ,  R  3 

TEST  FOR  Hi FR  ONE 

1272 

01614019 

RNE 

SO  10 1 1 4 

BRANCH  I F  THERE  IS  HI 

1272 

01615019 

MV! 

GPSIZCHO,ENDLIST 

SET  HO  S12C  AS  ENO  (IE  LIST 

1272 

01616019 

R 

S(  10114 

1272 

01617019 

SD10113 

LA 

R  14  ,GPAI)DHl 

SET  UP  PTR  Tn  AOORESS  LIST 

1272 

0 1  6 1 H  0 1  9 

ST 

R  14  ,GP ADDLT 

FOR  HIERARCHY  ONE 

1272 

01619019 

LA 

R14.GPS1ZEH1 

SET  UP  PTR  TO  REGION  SIZE 

1272 

01620019 

ST 

R  14»GPS1ZEA 

STORE  PTR 

1272 

01621019 

CLR 

R  3  *  R  7 

COMPARE  REDDEST  WITH  MINPAR 

1272 

G  622019 

HNL 

S010124 

BRANCH  REQUEST  GREATER 

1272 

01623019 

MVC 

GPS! ZFH1+D1 < 03 ) ,GPM! NPAR+01  MOVF  IN  MINPAft  SIZE 

1272 

01624019 

LR 

R6,R3 

RFOIJEST  SIZF  IN  R6 

1272 

01625019 

B 

SOI  0 1 1 5 

1272 

01626019 

SD10114 

CLR 

R11.R7 

COMPARE  REQUEST  WITH  MINPAR 

1272 

01627019 

BNL 

SOI  0124 

RRANCH  REQUEST  GREATER 

1272 

0162R019 

MVC 

GPSIZFHO+OK 03) .GPM1NPAR+01  MOVE  IN  M1NPAR  SIZF 

127? 

01629019 

LR 

R6,R11 

REQUEST  IN  R6 

1272 

01630019 

SD101 15 

TM 

LCTINTSWfLCTMINRG 

TEST  FOR  JOB  FAIL 

1272 

01631019 

BZ 

S01011A 

BRANCH  JOB  NOT  FAILFC 

1272 

01632019 

SD101155 

TM 

LCT INTSWtLCTIHl ER 

TEST  FOR  HIERARCHY 

1272 

01633019 

RZ 

SOI 01 1 65 

BRANCH  HIERARCHY  ZERO 

1272 

01634019 

NC 

GPSI7EHOI04) tGPSIZEHO  ZERO  HIERARCHY  ZERO  SIZE 

1272 

01635019 

MVC 

GPSIZFH1+01 (03) .GPMI NPAR+01  MOVE  MINPAR  SIZE 

1272 

01636019 

B 

S010125 

127? 

01637019 

SOI  01 1 65 

XC 

GPSIZEH1I04) ,GPSIZEH1  ZFRO  HI  SIZE 

1272 

0163B019 

MV  1 

GPSIZEHO.ENOLIST 

INDICATE  ENO  OF  LIST 

j  r  y‘i 

01639019 

MVC 

GPSIZEHO+Ol (03) .GPMINPAR+01  MOVE  IN  MINPAR  SIZE 

)  272 

01640019 

B 

S010125 

1272 

01641019 

SO  1 01 1 6 

oc 

BAMIPAR2 ( 02  >  *HAMI PAR2  IS  TERM  IN  LPA 

1272 

01642019 

BE 

S  0 1 0 1 2  0 

BRANCH  NOT  IN  LPA 

1272 

01643019 

TM 

LCTINTSW, LCTIHIER 

INIT  IN  HIERARCHY  ONE 

127? 

01644019 

BO 

SOI 01166 

BRANCH  HIERARCHY  ONE 

1272 

01645019 

nc 

GPAD0HO+OKO3)  *GPAD0H0+D1  SPECIFIC  REQUEST 

1272 

01646019 

BE 

S  0 1 0 1 1 7 

BRANCH  NOT  SPECIFIC 

1272 

01647019 

SR 

R7,R11 

R7=(MINPAR-S) 

1272 

0164B019 

L 

R2,GPA0DH0 

GET  REQUESTED  ADDRESS 

1272 

01649019 

SR 

R2,R7 

R  2  =  A- ( MI NPAR-S ) 

127? 

01650019 

ST 

R2,GPA0DH0 

NEW  ADDRESS  IN  PARM 

1272 

01651019 

B 

S  0 1 0 1 1 7 

1272 

01652019 

S0101 166 

nc 

GPAOOH 1+0 l ( 03 ) »GPA00H1 VQ1  SPECIFIC  REQUEST 

1 2  72 

01653019 

BE 

S  0 1 0 1 1  7 

BRANCH  NOT  SPECIFIC 

1272 

01654019 

SR 

R  7*R3 

R7= ( M I NPAR-S ) 

1272 

01655019 

L 

R 2, GPAOOH 1 

GET  REQUESTED  AOORESS 

1272 

01656019 

LA 

R  2  » 0  (  R  2  ) 

CLEAR  HIGH  DROER  BYTE 

1272 

01657019 

SR 

R2,R7 

R2= ( A- (M I NPAR-S ) 

1272 

01658019 

ST 

R2, GPAOOH 1 

NEW  ADDRESS  IN  PARM 

127? 

01659019 

MVI 

GPAOOH 1 , HEXO  1 

INDICATE  HIERARCHY  ONE 

1272 

01660019 

S  0 1  0 1  1  7 

LH 

R 7 , BAM  I P AR2 

LOAD  M I N— MI N  SIZE 

1272 

01660519 

SLL 

R7,M10 

MULTIPLY  BY  1024 

I  ~72 

01661019 

CLR 

R6,R7 

IS  REQUEST  GREATER  THEN  M1N-MIN 

1272 

01661519 

RNH 

S010U8 

BRANCH  MIN-MINPAR  GREATER 

1272 

01662019 

ST 

R6?GPS IZEPP 

USE  REQUEST  FOR  P/P 

1272 

01663019 

B 

S  0 1 0 1 2  6 

1272 

01664019 

snioiifi 

EQIJ 

1272 

01665019 

TM 

LCTDPSW1, LCTMINPF 

SMALL  REGION  FLAG 

1272 

01667019 

BO 

S010119 

BRANCH  NO  SMALL  REGION 

1272 

01668019 

ST 

R7,GPS IZEPP 

USE  MIN-MINPAR  FOR  P/P 

1272 

01669019 

R 

SD10126 

-29- 

in  /  inn  '  « 
1/  1  U  MJ"  1  ? 

5010119 

ST 

R6,GPSIZEPP 

USE  REDDEST  FOR  P/P 

1272 

01671019 

ST 

R7,GPSIZFT 

USE  min-minpar  for  term 

1272 

01672019 

B 

SD10127 

127? 

01673019 

S  01 0 1 20 

TM 

LCT0PSW1,LCTMINPF  SMALL  PARTITION  OPTION 

127? 

01674019 

RZ 

S  0 1 0 1 2  5 

HRANCH  NO 

127? 

01675019 

ST 

R6.GPSIZEPP 

USE  REQUEST  FOR  P/P 

127? 

01676019 

ST 

R7,GPSIZET 

ijsf  min/minpar  FOR  tfrm 

1272 

01677019 

B 

SO  10 127 

1272 

0167B019 

5010124 

TM 

LCTINTSW,LCTMIMRG  TEST  FDR  JOB  FAIL 

127? 

01679019 

BO 

SD10 1 1 5  5 

BRANCH  IF  JOB  FAILFO 

127? 

01680019 

SOI  01 2  5 

XC 

GPSIZEPPID4) 

, GP  S I Z  EP  P 

1272 

016R1019 

SD10126 

xc 

G  P  S  I Z  £  T  (04), 

GPSIZET  ZERO  TERMINATE  SIZE 

127? 

016B2019 

5  D 1 0 1 2  7 

EOU 

£ 

127? 

016B3019 

SD101C4 

LA 

Rfl.O(RB) 

ZERO  HIGH  ORDER  BYTE 

LSI  7 

01699017 

ST 

R8  ,  LCTPARM3 

GETMAIM  PARAM  FOR  IEFS0102 

L  S 1  7 

01702017 

L 

B  1  ,LCTOORTY 

ADDRESS  OF  CSCH 

M4176 

01702619 

USING 

IFFCSCB.Rl 

M4176 

01703219 

TM 

CHSWT ,CHSVS 

IS  THIS  A  SYSTEM  TASK 

M4176 

017038 19 

RO 

SKIPCHAP 

BRANCH  SYSTEM  TASK  -  SKIP  CHAP 

M4L76 

01704419 

dr  np 

R  1 

M4176 

01705019 

SR 

R  1 ,  R  1 

CLEAR  REGISTER 

1241 

01706018 

LA 

R0,15 

PUT  15  IN  REG 

1241 

0171  00  IB 

IC 

Rl»  LCTOORT Y 

LOAD  JOB  SCHEDULING  PRIORITY 

t241 

01714018 

SR 

R  0 1 R  1 

GET  15-PRTY 

1241 

01.718018 

LNR 

ROf  RO 

NEGATE  REGISTER 

1241 

01722018 

SR 

RlfRl 

CLEAR  REGISTER 

I  241 

01726018 

CHAP 

(0) , I  1 ) 

CHAP  DD'JN  BY  15-PRTY 

1241 

01730018 

SKIPCHAP 

FOU 

* 

M4176 

01735019 

LR 

Rif  RIO 

. RESTORE  1  CT  ADDRFSS 

01740000 

L 

15f  16 

MOTHER  CVT 

01  20 

L 

15,0(0,15) 

DOUBLEWORD 

0121 

L 

15,4(0,15) 

THE  TCB 

0122 

L 

15,12(0,15) 

OUT  TIOT 

0 1  ?  3 

CLI 

0(  15)  ,C'F» 

FIXED  PARTITION? 

0124 

ENE 

NORMAL 

MO  -  PROCEED  NORMALLY 

0125 

CLI 

FTTF  ,X 1 FF 1 

CHECK  FIRST  TIME  THRU  ELAC. 

BE 

HITIT 

ALLOW  FIXED  INITIATION. 

MV  I 

FTTF.X'FF' 

SET  FTTF  TO  ALLOW  FI  NEXT  TIME 

* 

B 

NORMAL 

LET  IT  GO  THIS  TIME. 

FTTF 

DC 

X'OO* 

FIRST  TIMF  THRU  FLAG. 

HITIT 

L 

R1 ,  LCTPARM1 

GET  DS  END  TARLE. 

LTR 

R  1 ,  R  1 

IS  IT  ZERO? 

0127 

BZ 

LACTATE 

YEAH 

0 1  ?  8 

LA 

R1,B(0,R1) 

ENO  ON  THE 

0129 

SVC 

56 

JOB'S  DAT  AS  FT  S 

f'130 

L 

R0,LCTPARM2 

FREE  UP  DS  END 

0131 

L 

R  1 ,  LCTPARM 1 

TABLE  CORF 

013? 

SVC 

1.0 

0 1  A  3 

LACTATE 

LR 

R  1 , R  10 

RESTORF  LCT  POINTER 

0134 

XCTL 

E  P= I E  FSD062 

GO  TO  MFMRFR  IEFSD062 

0135 

NORMAI 

DS 

OH 

0136 

XCTL 

E  P= I F  FSD102 , 

MF=( F, (  1)  ) 

01 760000 

I EFSOSTP 

DC 

V(  IEFS01 12  ) 

ADDR  OF  TRACK  STACK  PURGE  PGM 

01 78 0000 

VCONSMF 

DC 

V(  IEFSMFIE  ) 

* 

SMF1 

01790018 

RO 

EOU 

0 

01800000 

R  1 

EOU 

1 

0 1 H?  00  00 

R? 

F  01 1 

2 

01841  '00 

R3 

FOII 

3 

01860000 

R4 

EOU 

4 

01880000 

R5 

FOU 

5 

01900000 

K(1 

t:  (All 

6 

01920000 

R  7 

EOU 

7 

01940000 

R8 

EOU 

8 

01960000 

K9 

EOIJ 

9 

01980000 

RIO 

EOU 

10 

02000000 

RL1 

FOII 

1  1 

02020000 

R  1 2 

FOII 

12 

02040000 

R13 

FOII 

13 

02060000 

R  1  4 

EOU 

14 

02080000 

R15 

EOU 

IS 

02100000 

TCORE 

EOU 

253 

LSI? 

02110017 

CVTOSECT 

DSECT 

02120000 

UNCONDGM 

EOU 

X  •  BO* 

1272 

02121019 

Ml  0 

FOII 

10 

1272 

02122019 

ENDLIST 

EOU 

X  1  BO  1 

1272 

02123019 

ni 

EOU 

1 

1272 

02124019 

02 

EOU 

2 

1272 

02125019 

03 

FOU 

3 

1272 

02126019 

04 

EOU 

4 

1272 

02)27019 

08 

FOU 

R 

1272 

02128019 

PI70L247 

EOU 

247 

1272 

02129019 

HEXOl 

FOU 

X  *01  • 

12  72 

02130019 

CVT 

02 140000 

IEERASEA 

IEFLOT 

DSECT 

02180000 

I efallct 

02200000 

ns 

3F 

1272 

02204019 

LCTINTSW 

os 

OC 

INITIATOR  INTERNAL  SWITCHES 

12  72 

02208019 

LCTIHIER 

EOlJ 

128 

1272 

02212019 

LCTSTDP 

EOU 

4 

INITIATOR  INTERNAL  STOP 

1272 

02216019 

LCTABENO 

EOU 

2 

P/P  ABBENOEO 

1272 

02220019 

LCTMI NRG 

EOU 

16 

12  72 

02224019 

LCTSPLP 

ns 

F 

02228019 

ns 

42  F 

12  72 

02232019 

0MGR1 

DS 

9F 

MAIN  OMGR  PARAMETER  AREA 

02240000 

QMGR2 

ns 

9F 

•ALTERNATE'  OMGR  PARAMETER 

AREA 

02260000 

TRSTK INF 

ns 

2F 

NEEDED  FOR  TRACK  STACKING  AMD  QUEUE 

02280000 

4 

BREAK  INFORMATION.  1ST  BYTE  TO 

CON- 

02300000 

4 

TAIN  NUMBER  OF  BUFFERS,  NEXT  3 

BYTES 

02320000 

* 

FOR  STACK  ADDR ,  NEXT  4  BYTES  FOR 

02340000 

* 

QUEUE  BREAK  INFORMATION 

02360000 

QMC4P 

EOU 

0MGR1+24 

PTR  IN  OMPA  TO  TRK  STACK  INFO 

02380000 

OMPOP 

EOU 

0MGR1+H 

OMGR  OP  CODE  IN  OMPA  AREA 

02400000 

OS 

6F 

1272 

02400219 

#  THESE  FIELDS  ARE  NEEDED  FOR 

L-SHAPE/INIT  MERGE  * 

1272 

02400419 

LCTOPSW 1 

ns 

OC 

INITIATOR  OPTIONS  BYTE  1 

1272 

02400619 

LCTPKEYF 

FOU 

128 

DONT  GFT  PROTECT  KEY 

1272 

02400819 

LCTUWFF 

EOU 

64 

OONT  PROCESS  DEDICATED  WDRKF 

1272 

02401019 

lctstmof 

EOU 

32 

DONT  PROCESS  STOP/MODI FY 

1272 

02401219 

LCTMINPF 

EOU 

16 

GET  REGION  SIZE  SPECIFIED 

1272 

02401419 

LCTCANF 

EOU 

8 

ALLOW  CANCEL  ONLY  AT  ALLOC 

1272 

02401619 

LCTONEJF 

EOU 

4 

PROCESS  ONLY  ONE  JOB 

1272 

02401819 

LCTICMOF 

EOU 

2 

DONT  PROCESS  INITIATOR  CMOS 

1272 

02402019 

-31- 


LCTEXI  T 

ns 

F 

AOORFSS  I N I T I  AT  OR  F  X 1 T  LIST 

12  7? 

02402214 

LCTOPSW? 

ns 

OC 

INITIATOR  OPT  IONS  BYTE  2 

127?  . 

024024 1 4 

LCTTIMEF 

ECU) 

128 

OONT  TIME  THIS  JOR 

127? 

024026 1 4 

LLICRF 

FOl) 

64 

OONT  ALLOW  CHFCKPT /RESTART 

12  7? 

024028 ! 4 

LCTDSDF 

FQII 

32 

DON'T  PROCESS  OSO 

127? 

024030 1 4 

LCTI NTHO 

ECU) 

16 

HO  SPFCIFIFO  ON  START  COMMAND 

12  7? 

024032 1 4 

LC  r 1  NTH] 

EOU 

8 

HI  SPFCIFIFO  ON  START  COMMAND 

127? 

024034 1 4 

LCTCI1M 

OS 

F 

COMMUNICATIONS  PARM  AKFA  PTH 

127? 

024036 1 4 

FJFCT 

024040 1 7 

jct 

OSFCT 

02408017 

IEFAJCTB 

02412017 

FJFCT 

024 13014 

I FFCSCB 

OSECT 

02414014 

IEECHAIN 

02415014 

EJECT 

02416017 

I FFSCT 

OSFCT 

02420000 

JEFASCTH 

07440000 

GETPTWT 

OSFCT 

02441017 

GPSIZEA 

OS 

IF 

CONTAIN  THE  AOORESS  OF  THE  REGION  SIZE  LI 

LSI  7 

024420 1 7 

GPAODLT 

ns 

IF 

CONTAIN  THF  AOOR  OF  AODR  LIST  FOR  THE  HIE 

LSI  7 

02443017 

opcode 

ns 

X'O1 

CONTAIN  80  TO  INDICATE  UNCONDITIONAL  RFGI) 

LSI  7 

024440 1 7 

GPSIJBP 

OS 

X  •  0 « 

CONTAIN  SIIHPOOL  247  OR  246 

LSI  7 

0244501 7 

OS 

H '  0  1 

L  S 1  7 

0  244  60  1.7 

GPHI AR CO 

ns 

OF 

contains  no 

L  S 1  7 

02447017 

GPADDHO 

os 

IF 

CONTAINS  ADOR  FSS (SPECIFIC)  » 7  FRO ( NON-SPEC 

L  S  l  7 

0244801 7 

GPHI ARC1 

os 

OF 

CONTAINS  Oi 

LSI  7 

02444017 

GPADDHl 

ns 

1  F 

CONTAINS  ADDRESS ( SPEC  I F I C )  *7 FRI  i  ( NON-SPFC 

LSI  7 

0745001 7 

GPSIZEHO 

os 

IF 

SIZE  OF  HO 

LSI  7 

02451017 

GPSIZEH1 

ns 

IF 

SIZE  OF  HI 

LSI  7 

02452017 

GPSIZEPP 

os 

IF 

REGION  SIZE  FOR  P/P 

1272 

02452314 

GPSIZET 

os 

IF 

REGION  SIZE  FOR  TERMINATE 

127? 

02452614 

GPAODHOR 

os 

IF 

ORGINAL  ADDRESS 

CR 1 7 

07453017 

GPMINPAR 

OS 

IF 

247  +  MINIMUM  REGION  SIZE 

CR  1  7 

02454017 

END 

02460000 

V 


-32- 

T  1  TL  K  MEFSD161  VMS  JOB  SELECT  MODULE' 
IEFS0061  CSFCT 


♦0378R0 

* 

RFIFASE  19  -  -  - 

037700-037970, 124053-124062 

0  3  3800-034400,059400-06 1000, 099600-09 1000, 1078  00-  10R400 
124000-127000 


A21364 

M0429 


A2766R 

099 

099 


♦ 

* 

* 

* 

* 

♦ 

* 

* 

«c 

♦  * 

♦  JOB  SELECT  MODULE  * 

♦  ♦ 

*  ♦ 

* 

♦STATUS :  CHANGE  LEVEL  000 

♦  FUNCTIONS  TO  GET  THE  HIGHEST  PRIORITY  JOB  FROM  THE  QUEUE,  READ  THE  ♦ 
APPROPRIATE  SCT  FOR  THF  JOB, AND  SET  UP  THE  MESSAGE  CLASS  CR17 
QUEUE  MANAGER  PARAMETER  AREA.  CR17 

ALSO, 

TO  PREPARE  A  DATA  SET  ENO  PARAMETER  LIST  ANO  * 

A  DSNAME  OEQ  TABLE  * 

CONDI T I ONALY  INVOKE  A  DIRECT  SYSOUT  (DSO)  099 

ROUTINE  TO  SELECT  ELIGIBLE  DSO  DEVICES  TO  BE  099 

USED  BY  THE  DEQUEUED  JOB.  JOB  CLASS  AND  099 

SYSOUT  CLASS  ARE  USED  TO  SELECT  ELIGIBLE  DSO  099 

OEVICFS.  DIRECT  SYSOUT  CONTROL  BLOCKS  I DSOCB )  099 

CONTAIN  NECESSARY  DATA  FOR  SELECTION  AND  099 

MODIFICATION  OF  THE  RESPECTIVE  SYSOUT'S  SIOT  099 

AND  JFCB  TO  THAT  OF  THE  DSO  DEVICF.  099 


ENTRY  POINTS  -  IEFS0161  FROM  I  E  FSD 160, 1  EFSD166 ,  AND  IEFS0105 
INPUT:  REGISTER  ONE  CONTAINS  THE  LCT  ADDRESS 


* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

♦ 

<• 

# 

♦ 

♦ 

♦ 

♦ 

♦ 

♦EXTERNAL  ROUTINES: 
* 

♦ 

♦ 

* 

* 

♦ 

* 

* 

♦ 


OUTPUT: 


REGISTER  ONE  CONTAINS  THE  LCT  ADDRESS  AND  THE  LCT  CONTAINS 
THE  CURRENT  JCT  ANO  SCT  CORE  ADDRESSES 


I EFQMDQ2  -  REQUEST  WORK 
I EFQMUNC  -  OELETE  WORK  REQUEST 
I6r-QMRAW  -  Q  MNGR  READ/WR I TE  ROUTINE 
IEPOSTBL  -  DATA  SET  INTEGRITY 
I EFDSLST  -  DATA  SET  INTEGRITY 


EXITS  - 


1.  JOB  TO  PROCESS  -  IEFSD162 

2.  STOP  I N I T  -  BACK  TO  MASTER 

3.  MODIFY  INITIATOR  -  I 6F060SD 

4.  WAIT  FOR  WORK  -  IEES0105 

5.  DIRECT  SYSOUT  (DSO)  SELECTION 


I EFDSOSL 


* 

♦ 

099 


00020000 

00040000 

00045019 

00050018 

00051019 

00052019 

00052519 

00053019 

00054019 

00055019 

00056019 

00057019 

00058019 

00059019 

00060000 

OOOfiOOOO 

OOIOOOOO 

00120000 

00140000 

00160000 

00180000 

00200000 

00220000 

00240017 

00260017 

00280000 

00300000 

00320000 

00322019 

00324019 

00326019 

00328019 

00330019 

00332019 

00334019 

00336019 

00340000 

00360014 

00380000 

00400000 

00420000 

00440000 

00460000 

00480000 

00500000 

00540000 

00560000 

00580000 

00600000 

00620000 

00640000 

00660000 

00670014 

00680014 

00686015 

00692015 

00694019 


33' 


* 

099 

004960 1 9 

*  EXTERNAL  REFERENCES:  IEFDSSS, 

I EFOSTHL 

00700000 

*  TARt,  ES/WORK 

areas:  JCT i SCT  t 

LIFE  OF  TASK  BLOCK.  AND  JOB  CSCB  ARF  * 

00720000 

* 

Ul  MAUI 

r  r  nn  *  r»  r  a  *  #-  %•  • 

^  IDHMVU  Ml  LAI  1 

ft 

00  740000 

ft 

QUEUE  MANAGER  RESIDENT  CORE  AREA 

ft 

00760015 

* 

DIRECT  SYSOUT  CONTROL  BLOCKS  (DSOCB) 

099 

00770019 

ft 

ft 

007B001 5 

♦ATTRIBUTES  REENTRANT 

ft 

OOROOO 1 5 

* 

ft 

OOB2001 5 

ft 

ft 

OOR40000 

00860000 

EJECT 

OOBROOOO 

RO 

EOU 

0 

00900000 

R 1 

EOU 

I 

00920000 

P2 

EOU 

2 

00940000 

R3 

EOU 

3 

00960000 

R4 

EOU 

4 

0O9RO0OO 

R5 

EOU 

5 

01000000 

R6 

EOU 

6 

01020000 

R7 

EOU 

7 

01040000 

R8 

EOU 

B 

01060000 

R9 

EOU 

9 

OIOROOOO 

RIO 

EOU 

10 

01100000 

Rll 

EOU 

11 

01  120000 

R12 

EOU 

12 

01140000 

R13 

EOU 

13 

01  160000 

R14 

EOU 

14 

01180000 

R1S 

EOU 

15 

01200000 

BALR 

R12.0 

SET  PROGRAM  BASE  REGISTER 

01220000 

USING 

IEFJCT.RU 

01240000 

USING 

IEFLOT  *R10 

01260000 

USING 

I0PARAMS.R9 

01 280000 

USING 

RSAR.R13 

01310014 

USING 

*,R12 

01 320000 

**#*#**#>C<*#***#*4*****$*4*$  ***<<**>*<  >'*****4**44  *******4***** 

01340000 

ft 

ft 

01360000 

♦  THIS 

SECTION  OF  CODE  IS  FOR 

PROVIDING  A  METHOD  OF  IDENTIFYING 

ft 

01380000 

ft 

THIS  MODULE  IN 

A  MEMORY  DUMP 

ft 

01400000 

ft 

ft 

01420000 

6 

FIRST 

ft 

01440000 

DC 

X'CCCC' 

ft 

01460000 

DC 

C'  IEFS0161' 

01480000 

DC 

X ' 05031966 ' 

01500000 

FIRST 

DS 

OH 

ft 

01520000 

ft 

ft 

01540000 

*******#*************#**#***##*##*##**#*****#*******#*##**#*#***##***** 

01560000 

EJECT 

01580000 

LR 

R10.R1 

GET  BASE  FOR  LIFE  OF  TASK  BLOCK 

01610015 

LA 

R9.0MGR1 

GET  BASE  FOR  QUEUE  MANAGER  PARAMETER 

01640014 

ft 

AREA ( QMPA  ) 

01670014 

LA 

R13,REGSAVE 

GET  BASE  FOR  RSAR  DSECT I  THE  1ST 

IB 

01700014 

ft 

WORDS  OF  WHICH  SERVE  AS  A  SAVE 

AREA 

01730014 

ft 

FOR  THIS  PROGRAM) 

01760014 

TM 

LCT0PSW1.LCTSTMDE  STOP/MODIFY  PROCESSING  WANTED 

1272 

01760419 

BNO 

ECBTEST 

YES,  GO  CHECK  FOR  STOP 

1272 

01760819 

TM 

LCTINTSW.LCTSTOP 

INTERNAL  STOP  WANTED 

1272 

01761219 

BNO 

SD612021 

NO,  GO  PROCESS  THE  JOB 

1272 

01761619 

-34- 


FCRTEST 


SDM  549 


4 


SD61550 


S DP  1551 


SD61552 


SD61549A 


SD61553 


R 

SHOP  1037 

YFS  GO  PREPARE  TD  STOP 

1272 

01762019 

EQU 

TEST  FOR  EXTERNAL  STOP 

1272 

01762419 

1 

it  A  r  («  n  l  »  <■  » 

«>  »  t.  ^  t)  L  1  O  1 

ufT  r  i  it  N  7  c  R  TO  c  C  n  LIST 

i7TTS"5uT5 

l 

Rl.O(RR) 

LOAD  ADDRESS  OF  COMMUNICATION 

ECB 

01766015 

TM 

OIRD.STDPBIT 

IS  THE  STOP  RIT  POSTED 

01769015 

RD 

SD61550 

YES  BRANCH  TO  STOP 

01772015 

POD 

* 

01775015 

USING 

COMPA  ,R2 

COMM  PARM  AREA  ADDRESSABILITY 

1272 

01776019 

L 

R2.LCTCDM 

NO,  COMM  PARM  AREA  PTR  -CPA 

1272 

01777019 

1. 

R3,CDMCIRPT 

POINTER  TO  CIB 

1272 

0177B019 

DROP 

R2 

1272 

01779019 

LA 

R3.0IR3) 

GET  RID  OF  HIGH  ORDER  BYTE 

01784015 

LTR 

R3.R3 

IS  IT  ZERO 

01787015 

HZ 

SD612021 

YES,  BRANCH  ANO  SCAN  REST  OE 

ECBLIST 

01790015 

HAL 

R  7 »  SD6 12  270 

BRANCH  TO  UNCHAIN  ECRS 

01796015 

ADDRESS  DF  LCT  IS 

IN  RIO  FOR  I  EFSD160 

1272 

0179B019 

L 

R15, IEFSD60V 

ADDRESS  OF  MODULE  IEFSD060 

01801015 

RR 

R  15 

GO  TO  I EFSD060 

01803015 

NI 

0  (  R 1 >  »  X ' AF  1 

TURN  OFF  POST  AND  STOP  BITS 

01805015 

ENO 

MF=(F  ,1EFSD61C) 

END  ON  r.RnilP  CONTROL  BLOCK  CHAIN 

01808015 

L 

R7  » C VTPTR 

LOAD  POINTER  TO  CVT 

01811015 

USING 

CVTDSECT  »R7 

01814015 

L 

R  7 , CVTMS  ER 

LOAD  ADDRESS  OF  BASE  A 

0181 7015 

USING 

RASE ,R7 

01820015 

LA 

R5 , BATRM 

LOAD  ADD  OF  GCB  POINTER 

01823015 

L 

R4, BATRM 

LOAD  GCB  POINTER 

01826015 

DROP 

R7 

01829015 

EQU 

* 

01832015 

CLC 

16(R,R4) ,LCTIDENT 

ARE  IDENTIFIERS  EQUAL 

01841015 

RE 

SD61552 

YES,  BRANCH  AND  CONTINUE 

01844015 

LA 

R5,4(R4> 

NO,  SAVE  ADDRESS  Oe  LAST  GCB 

PLUS  4 

01847015 

L 

R4,4(R4> 

LOAD  POINTER  TO  NEXT  GCB 

01S5wi015 

R 

SD61551 

BRANCH  ANO  CHECK  THIS  GCB 

01853015 

EQU 

* 

01856015 

SR 

R7,R7 

ZERO  OUT  REGISTER 

0185901 5 

IC 

R  7  *  25 ( R4 ) 

SET  STOP  COUNT 

01862015 

LTR 

R7,R7 

IS  STOP  COUNT  ZERO 

01865015 

BNZ 

SD61553 

NO,  BRANCH  ANO  CONTINUE 

01868015 

USING 

COMPA, R2 

COMMUN  PARM  AREA  ADDRE SSABL I TY  1272 

01868219 

L 

R2 , LC  TCDM 

ADDRESS  OF  COMMUN  PARM  AREA 

1272 

01868419 

L 

R 1  ,COMC I BPT 

ADDRESS  OF  CIB 

1272 

01868619 

USING 

C I BDS ECT  ,R 1 

CIB  ADDRESSABILITY 

1272 

01868819 

LTR 

R  1 ,  R 1 

IS  THERE  A  CIB 

1272 

01869019 

BZ 

SD61549A 

NO,  GO  CHECK  FOR  MODIFY 

1272 

01869219 

CLI 

CIBVERB,CIBSTDP 

IS  THIS  STOP  CIb 

1272 

01869419 

BNE 

SD61549A 

NO,  GO  CHECK  FOR  MODIFY 

1272 

01869619 

LA 

RO,COMQI BPT 

ADDRESS  OF  CIB  PTR 

1272 

01869819 

DROP 

R2 

1272 

01870019 

R 

FREESTOP 

GO  FREE  STOP  CIB 

1272 

01870219 

EQU 

# 

1272 

01870419 

DEO 

MF= ( E , I EFSD6 1C ) 

DEO  ON  GROUP  CONTROL  BLOCK  CHAIN 

01871015 

R 

SD61549 

GO  CHECK  FOR  MODIFY 

01874015 

EQU 

# 

01877015 

BCTR 

R7.R0 

DECREMENT  STOP  COUNT 

01880015 

STC 

R7, 25 { R4 ) 

STORE  STOP  COUNT 

01883015 

LA 

RO , 2  B ( R4 ) 

AODRESS  OF  CIB  POINTER  IN  GCB 

01883718 

L 

R1,2B(R4) 

POINTER  TO  THE  CIB 

018P441B 
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FREESTOP 

EQU 

* 

1272 

0) R84719 

OEOIT 

BLOCK* ( 1 ) ,0RIGIN=(0) 

FREE  THF  STOP  CIB 

J31RB51  1  B 

i  r 

0  7 . 9A  i  D A  \ 

1  flAfl  MCMBCD  rnilKIT 

niflQAniR 

BCTR 

R  7*  R  0 

DECREMENT  MEMBFR  COUNT 

01  RB901  5 

LTR 

R  7  ,R  7 

I S  MEMBER  COUNT  ZFRO 

01B92015 

BNZ 

SD61554 

NO,  BRANCH  AND  CONTINUE 

01R950! 5 

M  VC 

0(4, R5) ,4tR4> 

YES. MOVE  POINTER  TO  NFXT  GCB 

0  l  R9R0 1 5 

* 

INTO  LAST  GCB 

0190101 5 

LH 

R0,0(R4) 

LOAD  LENGTH  OF  GCB 

01904015 

LA 

R  1 , 255 

LOAD  SUBPOOL 

01907015 

SLL 

R  1 , 24 

MOVE  SUBPOOL  TO  HIGH  OROFR  BYTE 

01910015 

OR 

RO,  R 1 

OR  IN  SUBPOOL  NUMBER 

0191 3015 

LR 

R1,R4 

LOAD  ADDRESS  OF  GCB 

01916015 

FRFEMAIN  R,LV=(0) ,A=( 1 ) 

FREE  GCB 

01919015 

B 

SD61555 

BRANCH  AND  CONTINUE 

01922015 

SD61554 

EOU 

# 

0192501 5 

STC 

R7 , 24 ( R4 ) 

STORE  MEMBER  COUNT 

0 192  BO  1  5 

USING 

C0MPA.R7 

CPA  ADDRESSABILITY 

1272 

01929019 

L 

R  7 , LCTCOM 

CPA  POINTER 

1272 

01930019 

L 

R7 , COMC I BPT 

ADDRESS  OF  CIB 

1272 

01931019 

OR  OP 

R  7 

1272 

01932019 

LA 

R  7 »  0  ( R  7  > 

GET  RID  OF  HIGH  OROFR  BYTE 

01937015 

LTR 

R7,R7 

IS  A  MODIFY  OUTSTANDING 

01940015 

BZ 

SD61555 

NO,  BRANCH  AND  CONTINUE 

01943015 

SR 

R  7  ,  R7 

YES,  ZERO  REGISTER 

0194601 5 

IC 

R  7  *  26 ( R4 ) 

LOAD  MODIFY  COUNT 

01949015 

BCTR 

R  7 ,  RO 

DECREMENT  MODIFY  COUNT 

01952015 

STC 

R7,26(R4I 

PUT  MODIFY  COUNT  BACK 

01955015 

SD61555 

EOU 

# 

01958015 

DEO 

MF=(E, IEFSD61C) 

DEO  ON  GROUP  CONTROL.  BLOCK  CHAIN 

01961015 

B 

SD061037 

01964015 

SD612021 

EOU, 

*r 

01967015 

L 

R 1 1 , LCT  JCTAD 

LOAO  ADDRESS  OF  JCT 

1272 

01975019 

LTR 

RlltRll 

IS  THERE  AN  I N— CORF  JCT 

1272 

0 1  9B  301  9 

BNZ 

JOT  I N 

YES,  DONT  GET  CORE  FOR  JCT 

1272 

01991019 

GETMAIN  R,LV=176,SP=TC0RE 

GFT  CORE  FDR  JCT 

02000014 

LR 

RllfRl 

GET  BASE  FOR  JCT 

02030014 

**  ii<  *  ft  *  ft#***  *  *####  *  *  #  ###  ###  ill  <c  *  ##*  *  #  #  ####>1!*#  Id#  <1  *  ##  *  #  #  *###*#  *  id  *  ft#  ft  *  ft  ft*  ft  ft  *  * 

02060014 

SD612020 

EOU 

* 

02080015 

LA 

RB , 4 ( Rfl  ) 

POINT  TO  NEXT  ECB  POINTER 

02100015 

L 

R 1 ,0 ( RB ) 

LOAD  ECB  POINTER 

02120015 

TM 

0(R1), POSTBIT 

IS  IT  POSTED 

02140015 

BO 

SD612010 

YES,  BRANCH  TO  SET  UP  FOR  Q-MANAGER 

02160015 

S06 12030 

EOU 

ft 

02  1BOOI 5 

TM 

O(Rfl) tENOBIT 

IS  THIS  END  OF  ECB  LIST 

02200015 

BZ 

SD612020 

NO,  BRANCH  AND  CHECK  NEXT  ECB 

0222001 5 

B 

SD06102B 

YES,  SET  UP  FOR  WAIT  ROUTINE 

02240015 

ftftftftftftftftftftftftftftftftftftftftftftftftft#ftftftftftftftftftftftft*ftftftftft**ftft*ftft*ftftft*ftft**ftftftft****ft*ft 

02660014 

* 

SET  UP  TO  GO  TO  QUEUE  MANAGER  AND  SEE  IF  THERE  IS  WORK 

* 

02690014 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft’frftft* 

02720014 

SD612010 

EOU 

ft 

02740015 

LA 

R3,REMLST 

LOAD  ADDRESS  OF  REMOTE  AREA 

02760015 

ST 

R3,QMPCl 

PLACE  ADDRESS  IN  OMPA 

02780015 

MV  I 

OMPOP , OMDTOP 

INDICATE  DEQUEUE 

02R0001 5 

MVC 

OMTP Y ( 1 ) , 4 ( R 1 ) 

INDICATE  JOB  CLASS 

02820015 

ST 

R11,LCTJCTAD 

PLJT  JCT  CCIRE  A  DDR  IN  LCT 

02870014 

ST 

RI 1 ,REMLST 

PUT  JCT  CORE  ADDR  IN  REMOTE 

029C0014 
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SD061020 


REMLST+414) ,REMLST+4 
R  1  »  OMC AN 
R15,  IEFQMVCN 
R1.R9 
R  14  »R  1 5 

SD06 1020 ( R 15 ) 
SD061040 
S0612030 
O.SOOMO20 


LIST 

ZERO  TTR  SLOT  IN  REMOTE  LIST 


UAUArco  n  T * 


RFT  Ar>no  ns  n  UAMArep  Mil 
OMPA  ADOR  INTO  R1 
00  TO  QUEUE  MANAGER  TO  TRY  TO 
OFT  WORK 

BRANCH  INOFXED  BY  RETURN  CODE 
JOB  OEQUFIJEO  -  GO  TO  PROCESS  IT 
NO  WORK,  CONTI  IMUE  CHECKING 
NO-OP, NO  SPACF 


****>»  I/O  ERROR 


9***4 

S006102B 

* 


BAD  10  CCNO 

***** 

WTOSWTCH, X ' FF • 


fEMP  ABEND  AND  LOOP 
CCNO  C0DF“12*  GO 


TO  ABEND  ROUTINE 


TM  WTOSWTCH, X'FF •  CHECK  TO  SEE  IF  'INPUT  QUEUE  EMPTY' 

MESSAGE  HAS  ALREADY  BEEN  PUT  OUT 
ONCE  DURING  THIS  INITIATOR'S  WAIT 
FOR  WORK 

BC  8,  SD06 1030  YES  -  BRANCH  AROUND  WTO 

NI  WTOSWTCH, X '00'  TURN  OF  SWITCH  SO  MESSAGE  WILL  NOT 

BE  PUT  OUT  AGAIN  UNTIL  AFTER  THIS 
I  Ml T  HAS  RECEIVED  WORK  AND  PROCESSED 
IT  AND  GONE  INTO  A  WAIT  AGAIN 

LA  R0.WTO429EX  SIZE  OF  WTO  AND  INI T  ID  A2766B 

GETMAIN  R  » L  V= ( 0 )  CORE  FOR  MSG  A27668 

R I  WILL  BF  MAINTAINED  FOR  MSG  AREA  BASE  A27668 


R0.WTO429EX 


R2 , MSGAD  WTO  CSECT 

DO ( WT0429A ,R 1 ) ,D0(R2)  1ST  HALF  OF  WTO  MSG  £ 


R15,WT0429A(,R1) 
RO,R 15 

00( D8, R 15 ) , LCT I  DENT 


A27668 

A27668 

A27668 

A27668 

QU0TEA27668 

A27668 


WHERE  I NI T  ID  IS  TO  GO  A27668 
SAVE  FOR  LENGTH  ( LNG )  COMPUTE  A2766R 
INIT  FOR  MSG  A2766B 


* 

SD61750 


*  R  1 5 
SD61751 

* 


LA  R 14  »Ofl 

WILL  NOW  FIND  1ST 
CLI  00<R15), BLANK 
BE  S06175L 

LA  R 15  »D1 ( »R 15  ) 

BCT  R 14 , S06 1750 


LOOP  LIMITING  REG 
BLANK  IN  ID  IF  ONE 
IS  ID  BYTE  BLANK 
YES  -  END  OF  ID 
NO  -  TEST  NEXT  HIGHER  BYTE 
LOOP  IF  NOT  END  DF  ID  SCAN 


POINTS  TO  BYTE  AFTER  END  OF  ID 


S0061030 


D0( WT0429B,R 15 ) , WT0429AI R2 I  LAST  HALF  OF  MSG 

STARTING  WITH  SECOND  QUOTE 
SR  R 15 , RO  COMPUTE  ID  LNG 

AH  R15,D0(,R1>  ADD  WTO  MSG  LNG  TO  THIS  VALUE 

STH  R 1 5 , DO ( , R 1 >  UPDATE  WTO  MSG  LNG 

LR  R2*Ri  SAVE  MSG  ADR 

WTO  MF=(£,(1)>  ISSUE  MSG  TO  OPERATOR 

LA  R0,WT0429EX  SIZE  OF  WTO  AND  INIT  ID 

LR  R1,R2  SFT  R 1  AGAIN  WITH  MSG  CORE  ADR 

FREEMAIN  R,LV*(0),A=(1>  FREE  MSG  CORE 
LR  R1,R11  GET  JCT  ADDRESS 


A27668 

A27668 

A27668 

A27668 

A27668 

A27668 

A27668 

A27668 

A27668 

A27668 

A27668 

A2766B 

A27668 

A27668 

A27668 

A27668 

A27668 


FREEMAIN  R  ,LV*176,A= ( 1 ) ,SP*TCORE  FREE  JCT  CORE 

XC  LCTJCTA0(D4) .LCTJCTAO  ZERO  OUT  JCT  ADDRESS 


15,16 

15,0(0,15) 
15,4(0.15) 
15,12(0,15) 
0(  15),C'F» 


MOTHER  CVT 
DOUBLEWORD 
THE  TCB 
OUR  TIOT 

F1XFD  PARTITION? 


02930014 
02960014 
03020015 
CD  1 1 00 1 4 
03140014 
03170014 
03200014 
03230014 
03260014 
03290015 
03320014 
03350014 
03410019 
03470014 
03500014 
03530014 
03560014 
03590014 
03620014 
03650014 
03680014 
03710014 
03740014 
03742019 
03744019 
03746019 
03748019 
03750019 
03752119 
03753019 
03757019 
03758019 
03760019 
03762019 
03764019 
03766019 
03768019 
03770019 
03772019 
03774019 
03776019 
03778019 
03780019 
03782019 
03784019 
03786019 
03788019 
03790019 
03810014 
03820014 
03825019 
0389 
0390 
0391 
0392 
0393 
0394 
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hitit 

LACTATE 

BNE 

L 

1  A 

MV  I 

L 

WAIT 

H 

eon 

LACTATE  NO 

R 1 5  ♦  I EFSD62V 
a  i  s.r>  i  doi  jrFimsi 

0<R15>,X‘FF' 

Rl, ECBLIST 
ltECBLlST-(l)  WAIT 
FIRST  +2  SKIP 

* 

GET  ADDRESS  OF  IEFSD062. 

BUMP  T  T  Tfl  F  TT  FIAT.. 

SET  FTT  FLAG  ON, 

LOAD  ECB  LIST  PTR. 

FOR  WORK 

MICKEY  MOUSE 

039S 

0397 
0398 
0  399 

xctl 

£P-!EFSD105»ME=( E  , 

(in  XCTL  Tn  LINK  PACK  AREA  TO  WAIT 

03R90014 

FOR  WORK  DR  STOP  INIT 

-  THUS 

03920014 

* 

MAKING  AVAILABLE  THE 

SPACE  THF 

03960014 

I EFSD061  LOAD  IS  OCCUPYING 

039R0014 

04010014 

S 0061037 

EOU 

« 

04040015 

L 

R3,LCTSREG 

04070015 

TM 

LCTOPSWliLCTICMDF 

PROCESSING  INITIATOR  COMMANDS  M3161 

04100019 

BO 

NOTTHRES 

NO,  DONT  REDUCE  THRESHOLD  M3161 

04130019 

L 

R7  ♦  16 

ADDRESS  OF  CVT 

04160000 

USING 

CVTDSECT  ,R7 

04180000 

L 

R7  tCVT  JOB 

GET  ADDRESS  DF 

RESID  CORE 

04200000 

USING 

OMRDSECT  ,R7 

04220000 

$ 

04240000 

END 

MF  =  ( E  » I EFS06 IB ) 

ENQUEUE  ON  ASSIGN/DELETE 

04260000 

LH 

RO,OMTBT 

GET  SIZE  OF  THRESHOLD 

042B0000 

TM 

OMQBK,OMRSV 

TEST  IF  HAVE  RESERVE 

04300000 

BZ 

SD06103B 

NO-THIS  lNIT'S  THRSHLO  WILL  BE  RESV 

04320000 

SH 

RO.OMTRS 

SUB  SIZE  GARENTEED  AN  INIT 

04340000 

STH 

RO»OMTBT 

SAVE  NFW  SIZE 

04360000 

SD061038 

01 

QMQBK,QMRSV 

SET  RESERVE  BIT  ON 

04380000 

DEO 

MF=(E«IEFSD61B) 

DEQUEUE  DN  ASS  I GN/DE LETE 

04400000 

NOTTHRES 

EOU 

* 

M3  161 

04460019 

LA 

R7  ,  SD612073 

04522015 

S0612270 

EOU 

* 

04524015 

SD612070 

EOU 

* 

04528015 

t. 

R6,ECBLIST 

ADORESS  OF  ECBLIST 

1272 

04528319 

LR 

R8,R6 

SAVE  ECBLIST  ADDRESS 

1272 

0452R619 

LTR 

RR  *RB 

IS  THERE  AN  ECBLIST 

1272 

04528919 

BCR 

08, R7 

NO,  DONT  UNCHAIN  IT 

1272 

04529219 

NEXT6CB 

EOU 

* 

1272 

04529519 

LA 

R8 , A ( R8 ) 

LOAD  AOOR  OF  POINTER  TO 

ECB 

04530015 

L 

RlvO(Rfi) 

LOAO  ECB  POINTER 

04532015 

LA 

RliO(Rl) 

CLEAR  HIGH  ORDER  BYTE 

04533015 

TM 

0(R1) ,POSTB 1 T 

TEST  FDR  POSTED 

04534015 

BZ 

SD612072 

NO,  BRANCH  AND  UNCHAIN 

04536015 

SD612071 

EOU 

* 

04538015 

TM 

O(Rfi) ,ENDBIT 

TEST  FOR  END  OF  LIST 

04540015 

BZ 

NEXTECB 

NO,  GO  TEST  NEXT  ECB 

1272 

04542019 

BR 

R7 

YES  RETURN 

04544015 

SD612072 

EOU 

* 

04546015 

L 

R15.0MNCVCON 

GET  ADDRESS  OF  UNCHAIN  ROUTINE 

04548015 

BALR 

R 1 A  v  R  1 5 

GO  TO  UNCHAIN 

04550015 

MVI 

0 ( R 1 ) , X • AO  • 

POST  UNCHAINED  ECB 

04551016 

B 

SD61207 l 

GO  CHECK  FOR  END  OF  LIST 

04552015 

S0612073 

EOU 

« 

04552515 

LTR 

R6  »R6 

IS  THERE  AN  ECBLIST 

1272 

04553519 

BZ 

TESTKEY 

NO,  DONT  FREE  IT 

1272 

04554519 

LR 

R1,R6 

LOAO  POINTER  TO  ECB  LIST 

04556015 
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1.  A 

R0»4 

LOAD  CONSTANT  OF  4 

0455801 5 

SR 

R  1  *  R  0 

SUBTRACT  TD  GET  TO  LENGTH 

OF  FCBLIST 

04560015 

L 

R0,0(R 1 1 

LOAD  LENGTH 

04562015 

LA 

RR.Ti.flRF 

04564015 

SU 

R  R  ♦  24 

04566015 

DR 

R0.R8 

04568015 

FREEMAIN  R,I.V*(0)  ,A«(  1  ) 

04570015 

TFSTKEY 

FOU 

9 

1272 

04572019 

TM 

LCTOPSWl,LCTPKFYF 

WAS  PROTECT  KFV  GOTTEN 

1272 

04574019 

BO 

NOTFREE 

Nn,  SO  OONT  FREE  I T 

1272 

04576019 

L 

R  A,  1 A 

LOAD  ADDR  OF  CVT  INTO  RASE 

RFG  6 

04580000 

USING 

CVTOSFCT  *R6 

04600000 

L 

R AtCVT  TCHP 

LOAD  ADDR  OF  TCB  INTO  RASE 

REG  6 

04620000 

L 

R  6  ♦  4  (  R  A  ) 

04640000 

XR 

R  1 »  R 1 

CLEAR  REG  1 

04660000 

IC 

R  1,2B( A) 

INSERT  PROTECT  KEY  INTfl  BASE  REG  1 

04680000 

SR  L 

R  1  *  4  ( 0  1 

MOVE  KEY  TO  LOW  ORDER  BITS 

OF  RFG 

04700000 

LA 

R2,l<0) 

LOAD  1  INTO  RFG  2 

04720000 

SLL 

R  2  <  0  ( 1  ) 

SHIFT  LEFT  KEY  NUMRER  OF  BITS 

04740000 

L 

R6,  16 

LOAD  ADDR  OF  CVT  INTO  BASE 

REG  6 

04760000 

USING 

C VTOSECT , R6 

04780000 

L 

R6.CVTMSER 

LOAD  ADDR  OF  MASTER  INTO  REG  6 

04783019 

USING 

8ASE,R6 

04786019 

EX 

R2» EXX I 

TURN  OFF  KEY  SWITCH 

04789019 

SR  L 

R2,8<0) 

SHIFT  TO  HI  EIGHT  BITS 

04792019 

FX 

R2  *  F  XX 1  A 

TURN  OFF  KEY  SWITCH 

04795019 

NOTFREE 

FOII 

9 

1272 

0479B019 

L 

R9,LCTFXIT 

SAVE  ADDRESS  OF  EXIT  LIST 

1272 

04801019 

***##$  $9  9999*9*99999* 999  41  999999999999  4  *999999999999999999*9  ft****  9999999 

04B04019 

LR 

R1.R10 

ADDRESS  OF  LIFE  OF  TASK  BLOCK 

04B07019 

LA 

RO, I EFENO-I fiFLOT 

LENGTH  OF  LOT 

04810019 

LA 

R  14, TCORE 

SUBPOOL  NUMBER 

04813019 

SLL 

ft  14, 24 

PLACE  IN  HIGH  ORDER  BYTE  OF 

048 16019 

OR 

R0.R14 

LENGTH  REGISTER 

04819019 

FREEMAIN  R,LV=(0),A»<1) 

FREE  LOT 

04822019 

LR 

R 1 »R 1 1 

04825019 

*  9  *  9  4c  *  $  ft  9  9  *  *  *  *  9  *  9  9  *  *  ft  *  9  *  9  9  *  i«c  *  *  *  *  9  9  <1  $  41  9  9  *  i)i  *  9#  9  *  9  *  9  *  *  *  9  4l  *  9  *  *  *  9  *  *  *  9  9  9  9  9  *  9  * 

04828019 

USING 

IELEXITS,R9 

EXIT  LIST  ADDRESSABILITY 

1272 

04831019 

LA 

R9,ZER0IR9> 

ZERO  HIGH  ORDER  BYTE 

1272 

04834019 

LTR 

R9,R9 

IS  THERE  AN  EXIT  LIST 

1272 

04837019 

BZ 

RETURN 

NO,  EXIT  TO  MASTER  SCHED 

1272 

04840019 

LR 

R1,R9 

EXIT  LIST  ADDRESS 

1272 

04843019 

CLI 

RTNEXLK, IELEXADD 

IS  THIS  A  BRANCH  FXIT 

1272 

04846019 

BE 

BRANCH 

YFS,  PREPARE  TO  BRANCH 

1272 

04849019 

LA 

RO  *  D 16 

REMOTE  LIST  +  SUP  PARMLIST 

M4339 

04852019 

GETMAIN  R  *  L V  =  ( 0 ) 

GET  CORE  FOR  REMOTE  LIST 

M4339 

04855019 

XC 

ZER0(D16,Rl),ZFRn(Rl)  CLEAR  CORE 

M4339 

04858019 

LR 

R  1 5 ,  R 1 

ADDR  OF  SUP  PARMLIST 

M4339 

04B61019 

LA 

R2 ,  DR ( R 1 ) 

ADDR  OF  REMOTE  LIST 

M4339 

04864019 

LR 

R  1  ,R9 

EXIT  LIST  ADDRESS 

M4339 

04867019 

M  VC 

ZERO<D6,R2 > .RTNEXNM  MOVE  EXIT  NAME 

M4339 

04870019 

MV  1 

D6(R2) , BLANK 

PAD  WITH  BLANKS 

M4339 

04873019 

MV  I 

D7IR2) , BLANK 

PAD  WITH  RLANKS 

M4339 

04876019 

ST 

R2,ZER0(R15) 

REMOTE  LIST  ADDR 

M4339 

04879019 

LR 

R2.R15 

ADDR  OF  SUP  PARMLIST 

MA339 

048820 19 

CLI 

RTNEXLK, IELEXXTL 

IS  EXIT  BY  XCTL 

1272 

04889619 

BE 

GOXCTL 

YES,  PREPARE  TO  XCTL 

1272 

04889719 
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*  IF  EXIT  IS 

NOT  BY  BR  OR  XCTL 

,  link  is  assiimfd  * 

1272 

04R89R ] 9 

LINK 

MF  =  <  E, ( 1) ) ,SF  =  I  E 

,115)1  GO  TO  EXIT  ROUTINE 

M4339 

04890619 

n 

BPTHPKl 

GO  RFTIIRN 

M4339 

04891419 

GOXCTL 

EQU 

4 

M4339 

04892219 

XCTL 

,MF= ( E » 1 1 ) ) »SF= I E 

,115)1  GO  TO  EXIT  ROUTINE 

M4339 

04893019 

BRANCH 

EQU 

* 

M4339 

04893R 19 

L 

R15,RTNEXAO 

ADDRESS  OF  EXIT  ROUTINE 

M4339 

04894619 

BR 

R15 

BRANCH  TO  EXIT  ROUTINE 

M4339 

04895419 

RETURN 

EOU 

4 

RETURN  TO  ATTACHER 

M4339 

04R96? 19 

LR 

R14.R3 

INITIALIZE  RETURN  REGISTFR 

M4339 

04897019 

HR 

R14 

04898015 

MC)VEMESr 

M  VC 

0<0,R3),31(R2> 

04903015 

ENDBIT 

EOU 

X  '  BO ' 

049080 1 5 

<t****#«$>{t***#44X>  4*  ft****#*#?****  #*#*#****#* 

04916014 

EXX  I 

XI 

HARSW+5 ,0 

TURN  OFF  PROTECT  KEY 

04917019 

EXX I  A 

XI 

BARSW+4,0 

04918019 

SD061040 

EOU 

* 

04919019 

USING 

I E  FCSCB , R 1 

CSCB  ADDRES5ARLITY 

1272 

04920019 

ni 

CHSTStCHOL 

INDICATE  FREE  WHEN  JOB  TERM 

1272 

04921019 

CROP 

R 1 

1272 

04922019 

ST 

R 1 ,LCTOORTY 

ADDRESS  OF  JOB  CSCB 

1241 

04923019 

USING 

IOPAR AMS  ,  R9 

OMGR  PARAM  AREA  ADDRESSABILITY 

1272 

04924019 

JCTIN 

EOU 

4 

1272 

04925019 

LA 

RO ,  WTPCBS I  Z 

S1ZF  OF  WTPCB 

M4339 

04926019 

n 

RO  ,M253 

SUBPOOL  IN  HIGH  ORDER  BYTE 

1254 

04927019 

GETMA 

IN  R,LV=(0) 

GET  CORE  FDR  WTPCB 

1254 

04928019 

LR 

R6.R1 

SAVE  ADDRESS 

1254 

04929019 

XC 

ZEROIWTPCBS1Z ,R1 ) 

,  ZEROjRl I  ZERO  WTPCB 

M4339 

04930019 

GET  JSCB  SYSTEM=MVT 

GET  MVT  JSCB 

1254 

04931019 

USING 

I EZ JSCB  t R 1 

JSCB  ADDRESSABILITY 

1254 

04932019 

ST 

RltLCT.ISCB 

ADDRESS  OF  JSCB  TO  LCT 

1254 

04933019 

ST 

R6  *  JSCBWTP 

ADDRESS  OF  WTPCB  TO  JSCB 

1254 

04934019 

MVC 

JSCRCSCB+ONE I  03 ) , 

I.CTODR  fY+ONE  ADDR  CSCB 

1254 

04935019 

TM 

LCTGPSW2,LCTTIMEE 

IS  TIMING  WANTED 

1272 

04936019 

BNO 

YESTIME 

YES,  CONTINUE 

1272 

04937019 

MVC 

JCTJMRTL  * HOUR 24 

NO,  INSERT  MAX  TO 

1272 

04938019 

* 

INDICATE  NO  TIMING 

1272 

04939019 

YESTIME 

EOU 

4 

1272 

04940019 

SR 

ROiRO 

CLEAR  REGISTER 

1272 

04943019 

STC 

RO, FRCPRTY 

CLEAR  FORCE  SLOT  IN  LCT 

1272 

04946019 

L 

R1  jECBLIST 

ADDRESS  OF  ECBLIST 

1272 

04949019 

LTR 

RI.Rl 

IS  THERE  AN  ECBLIST 

1272 

04952019 

BZ 

NOFORCE 

NO,  OONT  INSERT  FORCE  IN  LCT 

1272 

04955019 

LA 

R 1 ,4 ( R 1 ) 

LOAD  ADDRESS  OF  FIRST  JOB  ECB 

1241 

04963018 

SR 

R8,R1 

DETERMINE  OFFSET  INTO 

1241 

04964018 

SRL 

R8,2 

FORCE  TABLE 

1241 

04965018 

LA 

RI.LCTFORCE 

LOAD  ADDRESS  OF  FORCE  TABLE 

1241 

04968018 

IC 

RO,0(R8,R1 ) 

LOAD  FORCE  VALUE 

1241 

04969018 

LTR 

RO,RO 

WAS  FORCE  SPECIFIED 

1241 

04970018 

BZ 

SD061044 

NO,  BRANCH  AND  CONTINUE 

1241 

04971018 

STC 

RO.FRCPRTY 

YES,  STORE  FORCE  PR TY  IN  SLOT 

1241 

04972018 

SD061044 

EOU 

4 

1241 

04973018 

L 

R8 , EC  BL I  ST 

LOAD  POINTER  TO  ECBLIST 

04980516 

BAL 

R7.SD612070 

GO  UNCHAIN  FOBS 

04981016 

NDEORCE 

EOU 

4 

1272 

04981219 

L 

RliLCTQORTY 

RESTORE  REGISTER  ONE 

04981516 

049B20 14 
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MVN  JCTJPRTY ( 1 ) ,QMPRI 

« 

* 

* 


REPLACE  THE  JOB'S  ORIGINAL  CR17 

PRIORITY  IN  THE  JCT  WITH  ITS  PRESENT 
PRIORITY  FROM  THF  OMPA.  IN  r.A«;F  T  T9 
PRIORITY  WAS  CHANGED  WHILE  IN  THE 
INPUT  QUEUE 


4  #  *  *  *  *  $  $  *  »  *  1(1*  $  #  **  g  *  #  *  <i  *  #  #  •*  #  £  i(i  *  ik  ft  ft  *  ft  ft  *  ft  ik  *  ft  *  ft  ft  ft  ft  ft  ft  ft  * ft  ft  *  *  *  *  *  *  *  ft  *  ft  ft  *  ft  *  ft 


ni 

L 

USING 

L 

L 

L 

DROP 

TM 

BO 

MVC 

NOMVJBNM  EQU 

TM 

BC 

USING 

L 

LA 

LTR 

B7. 

MVI 

NOEXITL  EQU 
01 
01 
xc 

* 

4 


QMPR ! »  X ' 20 ' 

R6,  16 

CVTDSECT  *  R6 
R6  *  CV  T  TCBP 
R6, 4 { R6 ) 

R5,  12IR6) 

R6 

LCT0PSW1 .LCTICMOF 

NOMVJBNM 

8( 8 ,R5 )  * OMNAM 

* 

QMSTA, CANCELED 
8.S0061042 
IELEXITS»R2 
R2.LCTEXIT 
R2t ZER0IR2) 

R2,R2 

NOEXITL 

IELRTNCD, IOERR 

ft 


INDICATE  INITIATOR  QMPA  994 

LOAD  ADDR  OF  CVT  INTO  BASE  R6 


LOAD  ADDR  OF  TCB  INTO  BASE  R6 
LOAD  ADDR  OF  TIOT  INTO  R5 

PROCESS  INIT  COMMANDS  M4339 

NO,  DONT  UPDATE  TGOT  M4339 

MOVE  JOBNAME  INTO  TIOT  SSS  FIELD 

M4339 


WAS  JOB  CANCELLED  IN-QUEUE 
NO,  CONTINUE 

EXIT  LIST  ADDRESSABILITY  1272 

AOORFSS  OF  EXIT  LIST  1272 

CLEAR  HIGH-ORDER  BYTE  1272 

IS  THERE  AN  EXIT  LIST  1272 

NO,  NO  RETURN  CODE  1272 

YES,  INSERT  I/O  RETURN  CODE  1272 

1272 


JCTJSTAT, INCMSTS  YES,  SET  JOB-FAIL  BIT  IN  JCT 

LCTQENTY,LCTERRM  TURN  ON  TERM  BIT 

JCTDETDA ( 3 ) , JCTDETDA  ZFRO  OUT  TTR  OF  DSENQ  TABLE 

SO  DATA  SETS  WILL  NOT  BE 
ENQUEUED  UPON 


SD061042  EQU  * 

*  *  ft  #  *  id  *  ft  ft  ft  ft  if  *  ft  *  *  ft  #  ft  *  *  ft  *  ft  ft  ft  ft  *  ft  ft  ft  ftft  #  ft  *  ft*  ft  *  *  *  *  *  ft  ft  *  *  *  ft  *  *  *  *  ft  *ft  ft  ft  *  *  «  *  >|i  *  ft  ft  *  *  *  ft 


* 

ft 

ft 

ft 


INSERT  PROTECT  KEY  FROM 
INITIATOR  TCB  AND  PLACE 
IN  JCT  FOR  UNIQUE  JOB 
SERIAL  NO. 


ft 

* 

* 

* 


ftft&ftftftftftft ftft ftftftftft ftft ftftftftftftftftft ftft ftftftgftftftftftftftftftftftftft ftftcft ftft ft# ftft ft ftft *ftft ft* ftft ft#***# 


USING  I EFCSCB,R  1 

* 


ft 

ft 

ft 

ft 

ft 

ft 

4 

ft 


TCBPKF 


SAVE  0  AND  POINTER  TO  JOB 
NAME  IN  THE  STACK  AND 
OUEUE  BREAK  AREA.  JOB  NAME 
NEEDED  FOR  MESSAGE  AND 
CANCEL  JOB  COMMAND,  0  IS 
TO  INDICATE  TRACKS  OF 
QUEUE  USED  BY  INITIATOR 


LA 

ST 

MVC 

MVC 

MVI 

L 

EQU 

DROP 

L 


R2 , CHK  EY 

R?,TRSTKINF+4 

TRSTK I NF+4 ( 1),JCTNTRK 

CHJCLI4) ,JCTOSKAD 

CH JCL  +  3 , X 1 00 1 

R  1 , CHSWT 

28 

R  1 


GET  POINTER  TO  JOB  NAME 
PUT  IN  0  AND  JOB  NAME  PTR 
MOVE  TRACKS  USED 
PLACE  JCT  TTR  IN  CSCB  OF  JO  CR17 
BE  SURE  LAST  BYTE  IS  ZERO  CR17 
R 1  *  TCB  ADDR 

M2942 


R2 , LCTQDR  TY 


ADDRESS  OF  CSCB 


M2942 


04984017 
04986014 
n&Qonni ft 
04990014 
04992014 
04994014 
05000000 
05020000 
05040000 
05060000 
05080000 
05100000 
05120000 
05126019 
05132019 
05140000 
05150019 
05160000 
05180000 
05182019 
05184019 
05186019 
05188019 
05190019 
05192019 
05194019 
05200000 
05202014 
05205014 
05210014 
05215014 
05220000 
05240000 
05260000 
05280000 
05300000 
05320000 
05340000 
05380000 
05400000 
05420000 
05440000 
05460000 
05480000 
05500000 
05520000 
05540000 
05560000 
05580000 
05600000 
05603018 
05606017 
05612017 
05620000 
05640000 
05641019 
05642019 
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USING  IEFCSCB,R2 
TM  CHSWT  *  CHSYS 
BNO  NOTZEROK 


UKUK  *■£ 


*  119450 

MV  I  JCTJSRNO.FOXFOX  YE 

B  ZEKIJKEY  SK 

NOTZEROK  ECU  * 

MVC  JCTJSRNOI 1  I ,TCBPKF(R1) 
ZERDKEY  EOU  * 

OROP  R 1 

GETMAIN  R*LV=176*SP=TCORE 

ST  R1,REMLST 

ST  RltLCTSCTAD 

MVC  REMLST+4I4I , JCTSSTR 

SR  R2,R2 

ST  R2,QMCAN 

MVI  QMPCL , 1 

MV  1  OMPOP  ,4 

LR  R1,R9 

L  T,  15  ♦  I EEQMRD 

BALR  R  14  *  R 1 5 


CSCB  ADDRESSABILITY  M2942 

IS  THIS  FOR  A  SYSTEM  TASK  M2942 

NO,  PUT  IN  PROTECT  KEY  M2942 

M400B 

T  NONZERO  NUMBER  1272 

FROM  ICB  1272 

1272 

MOVE  PROTECT  KEY  TO  JCT 


YES,  INSERT  NONZERO  NUMBER 
SKIP  MOVE  PROM  ICB 


GET  CORE  FOR  SCT 

ADDRFSS  OF  GOTTEN  CORE 

SCT  ADDRESS  TO  LCT 

ALTERNATE  SCT  TTR  IN  REMOT  CR17 

ZERO  A  REGISTER  TO 

ZERO  OUT  ECB  SLOT 

INDICATE  ONE  OPERATION 

INDICATE  READ  OPERATION 

ADDRESS  OF  0  MGR  PAR  AREA 

ADDRESS  OF  READ  MODULE 

GO  TO  THE  READ  MODULE 


LTR  R 15 , R 15  ANY  NON-ZERO  CDND  CODE  099 

BNZ  BADIO  YES  -  GO  TO  ABEND  ROUTINE  099 

#  *  *  A*  4  *  *  *  *  4  *  *  *  #  *  *  4  *  *  $  *  *  #  *  *  <■  *  4 

*  # 

*  AT  THIS  POINT,  CHANGE  THE  INITIATOR'S  PRIORITY  TO  REFLECT  THE  * 

*  PRIORITY  OF  THE  JOB  GOTTEN  FROM  THE  QUEUE  * 

*  * 
ft**##*#**  #*i|<****  ***#«#  ft#^#******** 

SD061060  EOU  * 

L  R1,ICTSCTAD  LOAO  ADDRESS  OF  SCT  CR17 

USING  IEFSCT.R1  CR17 

01  SCTSDP.SCTFSTEP  TURN  ON  FIRST  STEP  BIT  CR17 

SR  R 1 , R 1  ZERO  OUT  R1 

IC  R 1 , QMPR I  MSGLEVEL  AND  PRIORITY  TO  R1 

LA  RO, X ' OF 1  LOAD  A  MASK 

NR  R 1 »R0  'AND'  OUT  MESSAGE  LEVEL 

STC  R 1 , LCTQDRTY  PLACE  LPMOD  VALUE  IN  LCT  1241 

«$*$**$****  #4  t#***!*************#**  ********  4*  **>(‘##******?«l|‘*#>t'*** 

*  THE  FOLLOWING  CODE  WILL  READ  THE  SYSOUT  CLASS  DIRECTORY  * 

*  FROM  DISK  ANO  FROM  THE  FIRST  ENTRY  IN  THIS  DI RECTOR Y, WH I CH  * 

*  IS  THE  MSGCLASS  ENTRY, WILL  BUILD  THE  MSGCLASS  QMANAGER  * 

*  PARAMETER  AREA.  THE  POINTER  TO  THIS  NEW  AREA  WILL  BE  STORED  * 

*  IN  THE  LCT. (OFFSET  68)-  * 

*  DIRECT  SYSOUT  (DSO)  ROUTINES  WILL  ALSO  SCAN  THE  SCD  LATER  ON  099 

*  IN  THIS  PROGRAM.  099 

***  4  ************ ***********  ***  *****  ***  ******  **  ***  4#*  ******************* 

LA  R 1 , REGSA VE+72  0  MGR  EXTERNAL  PAR  AREA 

XC  0(8, Rl)  ,0 ( R 1 )  CLEAR  AREA  TO  ZERO 

ST  Rl, QMPCL  STORE  POINTER  TO  EXT  PARM  AREA 

LR  R3,R1  SAVE  POINTER 

GETMAIN  R, IV=  176  GETMAIN  FOR  THE  SCD 

*  DIRECTORY  READ  IN  AREA  4 

ST  R1,0(0,R3)  STORE  POINTER  TO  READ  IN  AREA 

*  INTO  EXT  PARAM  AREA  # 


05643019 

05644019 

05645019 

U5b*bU19 

05647019 

05649019 

05652019 

05655019 

05660000 

05670019 

05680000 

05700000 

05720000 

05740000 

05770017 

05800000 

05820000 

05840000 

05R60000 

05880000 

05900000 

05920000 

05980019 

06040019 

06120000 

06140000 

06160000 

06180000 

06200000 

06220000 

06240000 

06260000 

06265017 

06270017 

06275017 

06280000 

06300000 

06320000 

06340000 

06430018 

06520000 

06540000 

06560000 

06580000 

06600000 

06620000 

06626019 

06632019 

06640000 

06660000 

06680000 

06700000 

06720000 

06740000 

06760000 

06780000 

06800000 
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4  (  3 ,  R  3  ) ,  JCTDSSBA 


MOVE  SCO  DISK  ADDR  INTO  EXT 
PARAM  AKFA 

MV  I  OMPOP » X • 04 '  INDICATE  READ  TO  OMANAGFR 

MV  I  QMPCl.  *  X  *  01 1  INDICATE  ONE  RECORD  TO  BE  READ 

LR  R4.R1  SAVE  POINTER  TO  READ. IN  AREA 

LA  R13.RFGSAVP  POINTER  TO  SAVE  A RCA 

LR  R1,R9  LOAD  POINTER  TO  OMPA 

L  R  1 5 »  I EFGMRD 

BALR  R14.R15  BRANCH  TO  OMANAGFR 

LTR  R15.R15  ANY  NON-ZERO  COND  CODE  099 

RNZ  RADIO  YES  -  GO  TO  ABEND  ROUTINE  D99 

4444444444444 4 44*444 44444444444444 4 444444 4# 44444*4 4 *4 4 44«4444 4 44444444* 

*  THE  FOLLOWING  CODE  WILL  GET  CORE  FOR  AND  BUILD  THF  MSGCLASS  4 

#  OMGR  PARAM  AREA  AND  ITS  ASSOCIATED  JOB  * 

44444444444444444444444444444444444444444444444*44444444444444444444444 

L  R 1 f LCT$OOMP  ADDRESS  OF  SYSOUT  OUFUE 

4  MANAGER  PARAMETER  AREA 

XC  OI36*R1)*0(R1)  CLEAR  GOTTEN  AREA 

M VC  QMWTQ2(4),QMWT01  MOVE  TRK  STACK  I NFD  ADDR  FROM 

4  MAIN  OMPA  TO  ALTERNATE  ONE 

M VC  9<3,Rl) ,1<R4)  MOVE  THE  QMFLT  AND  OMTST  FIELDS 

4  FROM  THE  MSGCLASS  SYSOUT  CLASS  4 

4  DIRECTORY  INTO  THE  MSGCLASS  4 

4  OMNGR  PARAM  AREA  BEING  BUILT  4 

MVC  14 ( 1  *  R 1 ) , 4 ( R4 )  MOVE  OMNOT  FIELD  INTO  OMPA 

MVC  20(2, Rl > f 5IR4)  MOVE  OMTID  FIELD  INTO  OMPA 

01  17 ( R 1 ) t  X  <  20*  INDICATE  INITIATOR  OMPA  994 

LR  R3,Rl  SAVE  POINTFR  TO  OMPA 

44444444444444444444444444444444444444444444444444444444444444444444444 

4  GET  CORE  FOR,  BUILO  AND  INITIALIZE  THE  I  OB  * 

44444444444444444444444444444444444444444444444444444444444444444444444 


0(36, R1  )  , 0 ( R 1 ) 
0MWT02(4),0MWTOl 

9(3, Rl) ,1<R4) 


14 ( 1 »R 1 ) ,4 ( R4 ) 
20(2, Rl ) ,5(R4) 
17 ( R l ) , X • 20 1 
R3,R1 


LA  RO , 0 1 OBL+4 

LA  R 1 4, TCOR  E 

SLL  R 1 4 , 24 

OR  RO , R 14 

LR  R5,R0 

GETMAIN  R,LV=(0) 


R5 » 0 ( R 1 ) 

R5 ,4 ( R 1 ) 
R5,2B(0,R3) 

0(0IOBL,R5) ,OMECB 

R5 , 0  I OBA ( R 5  ) 

R 1 , 0 1 OBC ( R5  ) 
R1,OIOBB(R5) 


LENGTH  OF  ECB/IOB+4 
GETCORE  IN  SUHPOOL  253 
SHIFT  TO  HIGH  ORDER  BYTE 
OR  INTO  LENGTH  REGISTER 
SAVE  SUBPOOL  NO.  AND  LENGTH 
GET  CORE  FOR  ECB/IOB 
SAVE  SUBPOOL  AND  LENGTH  OF 
ECB/IOB  IN  PRIOR  4  BYTES 
ADDR  OF  ECB/IOB 
STORE  ADDR  IN  DMFIA  FIELD  OF 
OMGR  PARAM  AREA  * 

MOVE  BASIC  ECB/IOB  MAP  TO  GOTTEN 
AREA  * 

SET  ECB  ADDR  INTO  IOB 
STORE  ADDR  OF  CCWI  INTO 
IOB 


OIOBO+l ( 3,R5 ) ,0I0BB+1 (R5) 


AND  INTO  CCW2  FIELD 


LA  R 1 , 0 1 ORC-5 ( R5 I 
ST  R 1 , 0 1 OBC ( R5 ) 

01  01 OBC ( R5 ) , OMCOP 

L  R 1 ,CVTPTR 

USING  CVTDSFCT , R 1 
L  R  1  *C  VT  JOB 

ST  R  1 , 0 1 OBDCB ( R 5 ) 
DROP  Rl 


ADDR  OF  IOBSEEK  FLO  +  3 
INTO  THE  IOB 

GET  C VT  PTR 
ADDRESS  THE  CVT 
ADDR  OF  SCHEDULER  DCB 
STORE  DCB  ADDR  IN  IOB  SLOT 


06R20000 
06840000 
06860000 
06880000 
06900000 
0 6 9  2  0 0  u  u 
06940000 
06960000 
0698000U 
06986019 
06992019 
07000000 
07020000 
07040000 
07060000 
070B00D0 
07100000 
07120000 
07140000 
07160000 
07180000 
07200000 
07220000 
07240000 
07260000 
07280000 
07300000 
07320000 
07340000 
07360000 
07380000 
07400000 
07420000 
07440000 
07460000 
07480000 
07500000 
07520000 
07540000 
07560000 
07580000 
07600000 
07620000 
07640000 
07660000 
07680000 
07700000 
07720000 
07740000 
07760000 
07780000 
07800000 
07820000 
07840000 
07860000 
07880000 
07880519 
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*  *5*  # 

4  4  4  # 

*  4  DETERMINE 

IF  DIRECT  SYSOUT  (DSO)  IS  TO 

099 

* 

BE  INVOKED 

FOR  THIS  JOB. 

099 

099 

TM 

LCTnPSW2,LCTnS0F  is  OSO  SUPPRESSED  HY  L-SHAPt 

099 

GO 

’NUUJU 

i  c  j  —  n  f  t‘A.)S  i  jju  i  i;  S  i  o 

099 

L 

R 1 tCVTPTR 

LOCATION  OF  CVT 

099 

USING 

CVT0SECT.R1 

CVT  BASE 

099 

L 

R 1 tCVTMSER 

A  OP.  OF  MASTER  SCH  DATA  AREA 

099 

USING 

RASE  *  R 1 

M/S  BASE  REG 

099 

L 

R 1 ,  BADSO  FIRST  OSDCB  ADR 

099 

DROP 

R  1 

099 

LA 

R 1 1  N0( *  R  1 ) 

CLEAR  H/n 

099 

LTR 

Rl.Rl 

ANY  ADR  TO  DSOCB  CHAIN 

099 

RZ 

Nnosn 

NO-BYPASS  ALLOCATION  OF  DSOCB 'S 

099 

099 

#  #  * 

#4*4 

4  4  FOLLOWING 

CODE  IS  INCASE  THE  DSO  ROUTINE  IS 

099 

* 

EVER  MADE 

A  SFPEKATE  MODULE  SINCE  CODE  IS  ALSO  099 

* 

SIMILAR  FOR  IEFSD511  IN  MET, 

099 

*X 

099 

L 

Rl.OMPCL  GET 

OMGR  EXTERNAL  PARM  LIST 

099 

ST 

R4  * NO (  »  R  1 ) 

ADR  OF  SCO  INTO  PARM  LIST  FDR  QMGR  099 

MVC 

LCTPARM 1 ( N4 ) , 

IEFdMRD  ADR  OF  0  MGR  RD/WR 

099 

LA 

R13,REGSAVE 

REG  SAVE  AREA 

099 

LR 

R 1 1 R 1 0 

ADR  OF  LOT 

099 

L 

R 1 5  , DSOVCON 

ADR  OF  DSO  SELECT  ROUTINE 

099 

BALR 

R 14, R 1 5 

BRANCH  TO  DSO  SELECT  ROUTINE 

1)99 

* 

099 

LTR 

R15.R15  ANY 

I/O  ERRORS 

099 

BNZ 

BAU10  YES 

-  GO  TO  ABEND 

099 

# 

099 

NDDSO 

EQLI 

4 

099 

* 

LR 

R1,R4 

LOAD  POINTER  TO  SCD  AREA 

099 

FREEMAIN  R , L V® 176 , A= ( 1 )  FREE  SCO  CORE 

4*44444*4 44 4*4444444444 44 444444*4*4444 44 444444444*44*4*444444 4 4*4444*44 
>!«  4 

*  INITIALIZE  TIMER  WORK  AREA  FOR  THE  JOBrJOBLIB  OCR  PTR.OMOSC  F I  EL  CR17 

*  IN  QMPA , AND  STEP  NO.  IN  LOT.  CR17 

>K  * 

4*44444*44*4 *4*#4*44444*44#4#44*4*4444444*4*44444*44*4*4 4 *44*4444*4444* 

* 


XC 

LCTTMWRKI 16) ,LCTTMWRK 

ZERO 

TIMER  WORK 

AREA 

XC 

LCTJOBLB.LCTJOBLB 

ZERO 

THE  JDBLIB 

POINTER 

XC 

QMOSC(l),OMOSC 

ZERO 

OUT  OMOSC 

FIELD  IN  0 

CR  1 7 

MVC 

l.CTSNUMBI  1  )  ,  JCTSNUMB 

MOVE 

STEP  NO.  FROM  JCT  TO 

CR17 

4 

4*44*44*4 444*44*4 4444*4*44*4*44*44*4*4 *44*44*4**4*44*4*44444*4*#44*4*44 

*  DATA  SET  INTEGRITY  CODE 

4 

*  FUNCTION: l,TO  READ  THE  DATA  SET  END  TABLE  PREPARED  BY  THE  INTERPRETER 

*  2. WRITE  A  NEW  TABLE  WITHOUT  DUPLICATES  FOR  USE  IN  IEFSD166 

*  3. TO  PREPARE  AN  END  PARAMETER  LIST  FOR  USE  IN  1EFS0102. 

* 

4*44444*4444*44*44444*444444*44*4*444 444 4444# 44 44*4444 *44*44*444444***4 
4 

USING  D5N!N,R4 

DIMODULE  XC  LCTPARM 1 , LCTPARM 1  CLEAR  TO  7ERO 


07881019 
07881519 
078820  IS 
07RR2519 

\ /  i  no  ju  4.  t 

D78R3519 
07884019 
07884919 
07888019 
07885519 
07886019 
078865 19 
07887019 
07887519 
07888019 
07R8R5  19 
078890 19 
07889519 
07890019 
07890519 
0  7  R  9 1 0  1  9 
07891519 
07892019 
07892519 
07893019 
07893519 
07894019 
07894519 
07895019 
07895519 
07896019 
07896519 
07900000 
07920000 
07940000 
07960000 
07970017 
07980017 
08000000 
08020000 
08040000 
08060000 
08080000 
08086017 
08092017 
08100000 
08120000 
08140000 
08160000 
08180000 
08200000 
08220000 
08240000 
08260000 
08280000 
08300000 
08301019 


-44- 


USING  IFFCSCH,R1 
L  KJ.  ,LCTQ0RTY 

TM  CHSWT  ,  CHDS  I 

BNO  WANTOSI 


CSCB  AonHF<;<;Aftii_iT'' 

ADDRESS  OF  CSCB 

IS  DATA  SET  INTEGRITY  WANTED 

YES,  BRANCH 


W4NTDSI 


GO  US  I 


JCTDETDA(D3( , JCTDETDA  NO,  ZFRO  SO  NO  DEO  LATER 
SD061200  BYPASS  DATA  SET  INTEG  PROC 

* 

JCTJSTAT, INCMSTS  HAS  JOB  BEEN  CANCELLED 
GODS  I  NO  -  GO  SET  UP  OS  I 

JCTOETDA(D3) , JCTDETDA  ZERO  SO  NO  DEO  LATE^Wtj 

S0  ;u.i200  BYPASS  DATA  SET  I NTEGR  I TV-J* 

JCTDFT0AI3  ),  JCTDETDA  IF  TTR  PARM  EO  ZEfTOj 

SD061200  ARE  NO  DSNAMES  FOlg&| 


BH3P  l 

M4351 
M4351 
M  4  3  tl  1 
?  M4351 

M4351 
M4351 
M4351 
M4351 
M4351 
M4351 
,  M4351 

j  THERE 
HUB 


OEXPARM (40) ,0£XPARM 


CLEAR  WORK  AREAS 


UP JU2019 
0B303019 
OF  304019 
0F305019 
08304019 
08307019 
08308019 
08309019 
08310019 
08311019 
08312019 
08313019 
08  340000 
08360000 
08380000 
OB400000 


GETMAIN  R,LV=368 

DSNAME  I/O  ARFAS 

08420000 

* 

AND  TREE-BUD  AREA 

08440000 

LR 

R  4 ,  R  1 

SAVE  POINTER  TO  I/O  AREA 

08460000 

* 

08480000 

* 

INITIALIZE 

PARAMETER  LIST  FOR 

TREE  ROUTINES 

08500000 

XC 

BUD, BUD 

CLEAR  TO  ZERO 

08520000 

LA 

R3 ,  BUO 

08540000 

ST 

R  3 , TR  EE 

ADDR  OF  BUD 

08560000 

MVI 

TREE, X  *02' 

HIGH  ORDER  BYTE 

08580000 

LA 

R2 , TR  EF-8 

08600000 

ST 

R2,TBLP«RM 

STORE  IN  TBU1LD  PARM  LIST 

08620000 

* 

08640000 

XC 

OCTTR( 14),QCTTR 

CLEAR  OUTPUT  FIELDS 

08660000 

MVI 

0 TABID, X' OF* 

TABLE  ID  IN  OUTPUT  RECORD 

08680000 

SETUP  0  MANAGER  PARAMETERS  AND  READ 
LA  R3, OEXPARM 

ST  R3 , OMPCL  STORE  ADDR  IN  EXT  PARM  AREA 

M VC  OTTR, JCTDETDA  STORE  TTR  FOR  1ST  READ 

LA  R2 » PSTAR T  ADDR  OF  1ST  OUTPUT  RECORD 

70  ST  R4, OEXPARM  POINTER  TO  INPUT  AREA 

MV  I  QMPOP ,  X • 04 1  INDICATE  READ  TO  OMGR 

M V I  0MPCL»X‘01 •  INDICATE  ONE  REC  TO  BE  READ 

LA  R 13  *R6GSAVE  POINTER  TD  SAVE  AREA 

LR  R1,R9  POINTER  TO  QMPA 

L  R 1 5 , I E  FOMRD 

BALR  R 14 , R 1 5  BRANCH  TO  OMANAGER 

LTR  R 1 5  » R 1 5  ANY  NON-ZERO  COND  CODE 

BNZ  BAD  1 0  YES  -  GO  TO  ABEND  ROUTINE 

EOU  * 

OC  TTRRUFl.TTRBUFl  TEST  FOR  ZERO  TTR 

BZ  SD0610DO 

MVC  TTRBUF2, ICTTR  MOVE  CURRENT  TTR 

B  S0061090 

i80  MVC  TTRBUF1, ICTTR  MOVE  CURRENT  TTR 

'90  LA  R5,14(R4)  ADDR  OF  1ST  CHAR 


LA 

ST 

MVC 

LA 

SD061070  ST 

MV  I 
M  V I 
LA 
LR 
L 

BALR 

LTR 

BNZ 

OKRET  EOU 
OC 
BZ 
MVC 
B 

SD061080  MVC 
SD06109P  LA 
* 

S0061100  LA 
MVC 
AH 
CL  I 


MOVE  CURRENT  TTR  TO  BUFFER2 


MOVE  CURRENT  TTR  TO  BUFFER1 
ADDR  OF  1ST  CHAR  OF  1ST 
RECORD  IN  BLOCK 


R  6 , 1  (  R  5  ) 

L  ENGTh  +  1 I  1 ) , 1 ( R  5 ) 
R6, LENGTH 
1  ( R  5 ) , X ' 00 1 


STORE  LGTH  OF  CURNT  DSNAME 
R6-ADDR  OF  LAST  CHAR  OF  DSN 
ZERO  LFNGTH  INDICATES  END 


08700000 

08720000 

08740000 

08760000 

08780000 

08800000 

08820000 

08840000 

08860000 

08880000 

08900000 

06920000 

08940000 

09000019 

09060019 

09120000 

09140000 

09160000 

09180000 

09200000 

09220000 

09240000 

09260000 

09280000 

09300000 

09320000 

09340000 


-4S- 


BE 

SD061150 

OFBLOCK 

09360000 

LA 

R  5 » 2  1 R  5  ) 

R 5  NOW  POINTS  TO  1ST  CHAR 

09380000 

* 

OF  DSNAME 

09400uu0 

LA 

R1,TBLPARM 

ADDR  OF  TBUILD  PARM  LIST 

09420000 

STM 

R5,R6, DSNBEG 

STORE  TBUILD  PARAMETERS 

09^40000 

LA 

R  13, REGSAVE 

09460000 

L 

R 15 » TBLVCON 

09480000 

BALR 

R  1 4  *  R 1  5 

BRANCH  TOI EFDSTBL 

09500000 

4  *  *  i|i  ft  44  4 >)i  *  4  4  4  4  4  4  4 *  *c  *  *  *  A  «  4  *  *  *  4c  *  44  4  *  4  4 4  *  *  *  *  4  *  *  *  *  ft  4  4  4  *  *  *  *  *  4  4  *  44  4  4  4  4 4  4  4  *  *  *  * 

09520000 

* 

jk 

09540000 

k 

UPON  RETURN  FROM  I EFDSTBL  »R 1  CONTAINS  ADDR-8  OF  A 

09560000 

4  BYTE  AREA  CONTAINING 

THE  ADDR  OF  A  4  BYTE  AREA 

09580000 

:« 

WHICH  CONTAINS 

: 

09600000 

BYTE 

O-X'BO' 

IF  SHARED  SRR 

09620000 

# 

X  '00' 

IF  EXCLUSIVE  SRR 

09640000 

* 

BYTE 

1+2-NOT 

USED 

09660000 

* 

BYTE 

3-CONTA I  NS  ZERO  IF  DSNAME  INTRODUCED  TO 

09680000 

4 

I EFDSTBL  WAS  NEW 

09700000 

44444444444444444444444444444444444444444444444444444444444444444444444 

09720000 

BCTR 

R5,R0 

09740000 

BCTR 

R5,R0 

DECREMENT  R5  BY  2 

09760000 

L 

R 1 , 8  ( R  1  ) 

LOAD  ADDR  OF  4BYTE  BUD 

09780000 

ac 

3< l.RI  )  ,3<R1) 

TEST  FOR  NEW  DSNAME 

09800000 

BZ 

SD061U0 

BRANCH  IF  TRUE 

09820000 

NC 

0( 1,R1) tO(R5  I 

UPDATE  E/S  ATTRIBUTE 

09840000 

B 

S0061130 

09860000 

SD061110 

MVC 

0( 1,R1> ,0(R5) 

STORE  1ST  E/S  ATTRIBUTE 

09880000 

MV  I 

3IR1 ),X'01  ' 

CHANGE  DSNAME  STATUS  TO  OLD 

09900000 

SD061120 

LH 

R3, LENGTH 

*R3  WILL  CONTAIN  SPACE 

09920000 

LA 

R3,2(R3) 

NEEDED  IN  OUTPUT  BLOCK 

09940000 

LA 

R7  »OEND 

*R7  WILL  CONTAIN  REMAINING 

09960000 

SR 

R7tR2 

SPACE 

09980000 

CLR 

R3  »R7 

10000000 

BH 

SD061170 

BRANCH  IF  NO  SPACE 

10020000 

BCTR 

R3,RO 

SUB  1  FROM  LENGTH( EXECUTE 

10040000 

* 

INSTRUCTION  REQUIRES  ONE 

10060000 

4 

LESS  THAN  ACTUAL  LENGTH 

10080000 

ex 

R3.SD06114O 

MOVE  DSNAME  TO  OUTPUT  AREA 

10100000 

LA 

R2  1 1 ( R2  »R3  I 

INDEX  R2  TO  NEXT  OUTPUT  REC 

10120000 

LH 

R3, LENGTH 

INCREASE  DSNAME  CHAR  COUNT 

10140000 

A 

R3  »OCHAR 

BY  LENGTH  OF  LAST  DSNAME 

10160000 

ST 

R3  »  OCHAR 

10180000 

LH 

R3  *OCNT 

INCREASE  DSNAME  COUNT  BY  1 

10200000 

LA 

R3, 1  ( R3 » 

10220000 

STH 

R3  tOCNT 

10240000 

SD061130 

LA 

R7 1 172 ( R4 ) 

TEST  FOR  ANOTHER  POSSIBLE 

10260000 

CLR 

R6,R7 

RECORD  IN  BLOCK 

10280000 

BH 

SD061150 

BRANCH  IF  NO  POSSIBILITY 

10300000 

LA 

R5,1(R6> 

R5-ADDR  OF  NEXT  RECORD 

10320000 

B 

SD061100 

10340000 

SD061140 

MVC 

0(0, R2) ,0(R5) 

OBJECT  OF  EX  INSTRUCTION 

10360000 

SD061150 

OC 

ILTTR, ILTTR 

END  OF  DSNAME  ENQ  TABLE  IF 

10380000 

BZ 

SD06U60 

LAST  TTR  FIELD  IS  ZERO 

10400000 

MVC 

GTTR, ILTTR 

MOVE  NEXT  TTR  TO  EXT  PARM 

10420000 

4 

B 

SD061070 

AREA 

10440000 

10460000 

SD061160 

MV  I 

TE5TE0D,X 1 FF • 

SET  EN-  OF  DATA  INDICATOR 

10480000 

-1,6- 


S0061170 

1.  A 

R7 iOEND-2 

CHECK  FOR  INSERTION  OF  TWO 

10500000 

C.LK 

K2*K  t 

ZEROS  AT  END  OF  BLOCK 

10520000 

BH 

SD061180 

10540000 

XC 

0(2, R2) ,0<R2> 

INSERT  ZEROS 

10560000 

SD06 1180 

LA 

R3,UC II K 

ADOR  OF  OUTPUT  AREA 

1 0580000 

ST 

R3  tOEXPARM 

STORE  ADUR  IN  EXT  PARM  AREA 

10500000 

MVC 

QTTR,  TTRBUF1 

STORE  TTR  IN  EXT  PARM  AREA 

10620000 

MVC 

OCTTR ,DT TR 

CURRENT  TTR  FIELD  IN  OUTPUT 

10640000 

MV  I 

OMPOP  *  X 1 03  ' 

INDICATE  WRITE  TO  OMGR 

10660000 

MV  I 

OMPCL  ,X '01  ' 

INDICATE  ONE  REC  TO  BE  READ 

10680000 

LA 

R13.REGSAVE 

POINTER  TO  SAVE  AREA 

10700000 

LR 

R1,R9 

POINTER  TO  OMPA 

10720000 

L 

R15, IEFOMRD 

10740000 

BALR 

R14,R15 

BRANCH  TO  QMANAGER 

10760000 

LTR 

R 1 5 ,  R  1 5  ANY  NON-ZERO  CONO  CODE  099 

10770019 

BZ 

0KRET1  NO  - 

CONT  PROCESSING  099 

10780019 

099 

10790019 

BADIO 

ECU 

#  QMGR 

I/O  ERRORS 

ENTER  HERE  099 

10800019 

# 

099 

1  OB  1 00 1 9 

***#**######*#**## *******  I /0 

ERROR 

10B60000 

LA 

R 1 »  X  1 OBO ' 

10880000 

SLA 

R 1  *  12 

10900000 

ABEND 

(1 ) , DUMP 

10920000 

DKRET1 

EQU 

# 

10940000 

MVC 

OLTTR, OCTTR 

SETUP  OLTTR  FOR  NEXT  WRITE 

10960000 

MVC 

TTRBUF1 » TTRBUF2 

PUT  NEXT  TTR  IN  BUFFER  1 

109ti0000 

XC 

TTRBUF2,TTRBUF2 

CLEAR  TTR  BUFFER  2 

11000000 

CLI 

TESTEOD*X  •  FF  ' 

TEST  FOR  END  OF  DATA 

1 1020000 

BE 

SD061190 

11040000 

LA 

R2.0START 

ADDR  OF  1ST  OUTPUT  RECORD 

1 1060000 

B 

SD061120 

1 1080000 

* 

11100000 

*  PREPARE  FOR 

ENTRY  TO  IEFDSLST 

11120000 

TBLVCON 

DC 

V( I EFDSTBL ) 

TBU1LD 

11140000 

LSTVCON 

DC 

VI IEFDSLST) 

TSTRIP 

11160000 

MAJNAME 

DC 

C'SYSDSN  • 

END  MAJ  RFSGURCE  NAME 

11180000 

11200000 

SD061190 

MVC 

CHARSAVI6) ,  DCH AR 

S  AVE  DSNAME  COUNTS 

11220000 

MVC 

JCTDETDA(3),0TTR 

STORE  TTR  FOR  USE  IN 

11240000 

* 

I EFSD166  DEO  FUNCTION 

11260000 

LR 

R1,R4 

FREE  1/0  AREAS 

11280000 

FREEMAIN  R » LV=352 , A= ( 1 ) 

11300000 

* 

1 1320000 

*  SETUP 

PARAMETERS  FOR  I EFDSLST  AND  GET 

CORE  FOR  END  PARM  LIST 

11340000 

# 

LA 

R3, 12 (0,0) 

DETERMINE  CORE  NEEDED  FOR 

11360000 

11380000 

MH 

R3 , CNTS A V 

END  PARM  LIST 

1 1400000 

A 

R3 ,CHAR  SAV 

* 

1 1420000 

LA 

R 3 , 8  (  R3 ) 

* 

11440000 

LR 

R0,R3 

LENGTH  OF  END  PARM  LIST 

11460000 

LA 

R2, 255(0,0) 

SUBPOOL  NO.  255 

1  1480000 

SLL 

R2 ,24 

PLACE  IN  HIGH  ORDER  BYTE 

11500000 

OR 

R0,R2 

OF  LENGTH  REGISTER 

1  1520000 

ST 

RO , LCTP ARM2 

SAVE  FOR  USE  IN  IEFSD102 

11540000 

G6TMAIN  R,LV=(0> 

END  PARM  LIST 

11560000 

ST 

R1,DSNBEG 

POINTER  TO  END  PARM  LIST 

11580000 

AREA  FOR  IEFDSLST 

11600000 
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MVC 

0<fl,l ) .MAJNAME 

1ST  ORYTFS  AR F  ENO 

MAJ  NAME 

1 1 6?nnnn 

S 

R3.CHARSAV 

.1  1  640000 

AR 

R3.R1 

1  1660000 

ST 

R3  »  OSNENO 

ADOR  OF  1ST  DSNAMF 

ENTRY 

1  1680000 

ST 

R 1 »  LCTP  ARM  1 

POINTER  TO  ENO  PARM 

LIST 

11700000 

* 

FOR  USE  IN  I E  F  SO  1 02 

1  1  720000 

LA 

Rl.TBLPARM 

ADOR  OF  I EFOSLST  PARM  LIST 

1 1740000 

LA 

R13.REGSAVE 

POINTER  TO  SAVE  AR F A 

1  1 760000 

L 

R15.LSTVC0N 

1  1  7BOOOO 

BALR 

R14,R15 

BRANCH  TO  I FFOSLST 

1  1800000 

*  *  #  #  #  >Cc #  V  #  #  #  *  #  #  #*  *  #  #  #  * >!«  *  #  $  **  *  $  *  $  *  #  >■*  A  9  #  *  *  #  *  «  *  *  *  *  *  *  #  #  *  **  *  *  *  *  *  4  4  *  *  41  #  *  *  * 

1  ]  820000 

* 

1 1840000 

*  UPON  RETURN 

FROM  I EFOSLST  ROUTINE, THE  ENQ  PARAMFTFR  LIST  HAS 

BEEN 

11860000 

*  built 

FOR  USE  IN  IEFSD102.  A 

POINTER  TO  IT  IS  STORED  IN 

1  1  880000 

*  LCTPARM1  AND 

ITS  LENGTH  ANO 

SUBPOOL  ARE  STORED  IN  LCTPARM2. 

1  1900000 

*  I EFDSLST  BUILDS  THE  ENQUEUE 

PARAMFTFR  LIST  TO  ISSUE  AN 

A21364 

11903019 

#  UNCONDITIONAL  ENQUEUE.  COOE 

CHANGES  MADE  TO  IFFS01O2  FDR  APAR 

A21364 

11906019 

*  2 1364  1 

REQUIRE  THAT  A  CONDITIONAL  ENQUEUE  RE  I SSUFD.  THE 

A21364 

1 1909019 

*  FOLLOWING  COOE  CHANGES  THE  ENQUEUE  FARMS  TO  ISSUE  A 

A?) 364 

1 1912019 

*  CONDITIONAL 

ENQUEUE. 

A21 364 

11915019 

* 

1 1920000 

11940000 

L 

R I , LC  TP ARM  I 

ADDRESS  Q  PARM  LIST 

A  2 1 364 

11941019 

LA 

R  1 , 08  (  R  1 1 

ADDRESS  1ST  ENTRY 

A  2 1 364 

11942019 

USING 

QL1ST.RX 

ENO  LIST  BASF 

A21364 

1  1943019 

SD06U93 

EQIJ 

* 

SETUP  FOR  COND  ENO 

A21364 

11944019 

01 

QATT .SYSTEM+USE 

ENQ  SYSTEM,  RET  =  USE 

M400B 

119450)9 

CLI 

QLSTENO.LSTENO 

ENO  OF  LIST? 

A21364 

11946019 

BE 

SD061196 

YES  -  BRANCH 

A21364 

11947019 

LA 

R 1 , QENTLGTH (R 1 ) 

INCREMENT  TD  NEXT  ENTRY 

A21364 

11948019 

B 

SD061193 

PROCESS  NEXT  ENTRY 

A21364 

1  1 9*90 19 

S0061196 

EQIJ 

* 

CONTINUE  PROCESSING 

A21364 

11950019 

LA 

R1,TREE 

FREE  TREF 

11960000 

FREEMAIN  R,LV=B,A=( 1) 

11 980000 

* 

12000000 

SD061200 

LR 

R 1 , R 10 

LCT  ADDRESS 

12020000 

L 

R 15 , 1 EFS062V 

ADDRESS  OF  IEFSD062 

12040000 

BR 

R  15 

GO  TO  I EFSO062 

12060000 

I6FSD60V 

DC 

V(  IEFSD060) 

12070015 

I EFSD62V 

DC 

VI IEFSD062) 

12080000 

IEFOMRD 

DC 

VI IEFOMRAW) 

12100000 

I EFQMVCN 

DC 

VI IEFQMDQ2) 

12120000 

DSOVCON 

DC 

V( IFFOSOSL) 

DSO  SELECT  DSOCB  ROUTINE 

099 

12130019 

**4  *  *  *  *  #*#■■(<  ##*  i*****^?  **#******«**«*  *4  ft****#  4* 

12140000 

Q I  ORA 

EOlJ 

B 

12160000 

QIOBB 

EQU 

20 

12180000 

QIOBOCB 

EOlJ 

24 

DCB  A  DDR  OFFSET  FROM  ECB/I08 

12200000 

QIOBC 

EQU 

44 

12220000 

OIOBD 

EQU 

52 

12240000 

OMCOP 

EQU 

X  •  3 1  1 

12260000 

DISPLACE 

EQU 

760 

ZERO 

EQU 

0 

DI SPLACEMENT 

1272 

12260619 

ONE 

EQU 

1 

DI SPLACEMENT 

1272 

12261219 

03 

EQU 

3 

DI SPLACEMENT 

12  54 

12261819 

04 

EQU 

4 

DISPLACEMENT 

1272 

12262419 

D6 

EQU 

6 

DI SPLACEMENT 

1272 

12263019 

D7 

EQU 

7 

DISPLACEMENT 

1272 

12263619 

-48- 


nn 

FOtl 

8 

01 SPLACEMEMT 

1272 

12264219 

00 

CAM 

0 

42  7  66  5 

12264319 

01 

EOll 

1 

A27668 

12264419 

016 

FOII 

16 

01 SPLACEMENT 

M4339 

12264519 

WTPLEN 

ECU 

16 

WTPCB  LENGTH 

1254 

1 22648 1 9 

BLANK 

EOI) 

X  •  40  ’ 

USED  TO  PAD  WITH  BLANKS 

1272 

12265419 

FDXFIIX 

EOIJ 

X  •  EE  ' 

INSERT  UNIOIJE  NONZERO  10 

1272 

12266019 

I0FRR 

FOIJ 

4 

I/O  ERROR  RETURN  CODE 

1272 

12266619 

ns 

OF 

1254 

12267219 

M2S3 

nc 

X*  FOOOOOOO' 

MASK  FOR  SP 233 

1254 

12267819 

HOUR  24 

oc 

AL  3 ( 8640000 ) 

1272 

12268419 

EJECT 

12270017 

xoap 

OMECH.R I ,OMECB, ,  ,  ,  , 

MF=L  ECB/IDB  BASIC  PATTERN 

12280000 

OMPTF 

EOll 

* 

ENO  OF  PATTERN  inB 

12300000 

OIOBL 

EOI) 

0MPTE-0M6CB 

LENGTH  OF  PATTERN  IOB 

12320000 

OMNCVCON 

OC 

V(  IFFOMIJNC) 

12340000 

POSTBIT 

EOO 

X  1  40 ' 

12360000 

T  COR  E 

EOIJ 

263 

1 23BOOOO 

EJECT 

12390017 

12390919 

* 

ENO/DEO  MACRO  PARAMETER 

LIST 

*  * 

12391819 

12392719 

I FFS061A 

ENO 

(  IEFSQCRS, IEF060CB, 

E, 2, SYSTEM), MF=L  ENO/OEO  PARM  LIST 

12393619 

I EFSOCBS 

OC 

C 1  SYS  I E  FSO 1 

MAJOR  NAME 

12394519 

I  ffoaocr 

OC 

C  1  06  ' 

MINOR  NAME  STOP  INIT. 

12395419 

I  E F SD6 1 B 

ENO 

(  IEFSOCBS, 1EF020CB, 

E  ,2,  SYSTEM)  ,  MF=-L  ENO/DEO  PARM 

LIST 

12396319 

I EFO20CB 

OC 

C  *02  ' 

MINOR  NAME  ASGN-DEL 

0  MNGR 

12397219 

I 6FS061C 

ENO 

(IEFSrCHS, 1FFRATRM, 

E, 5, SYSTEM), MF=L 

12398119 

IFFSGCBS 

OC 

C'SYSJMPCH' 

12399019 

IfcFHATRM 

OC 

C 1 BATRM ' 

12399919 

STOPBIT 

EOI) 

X*  10' 

12400R19 

MS  GAO 

nc 

A<  QMTMSG) 

AODR  OF  MESSAGE  CSECT 

0847 

12401719 

A21364 

12401819 

QLIST 

OSECT 

ENO,  DEO  PARAMETER  LIST 

A21364 

12401919 

* 

ANY  NUMBER  OF  ENTRIFS 

A21364 

12402019 

* 

EACH  ENTRY  IS  DESCRIBED 

A2I364 

12402119 

* 

AS  FOLLOWS : 

A21364 

12402219 

qlstend 

DC 

X'OO' 

END  OF  LIST  INDICATOR 

A21364 

12402319 

LSTEND 

EOU 

X'FF' 

FF  INDICATES  ENO  OF  LIST 

A21364 

12402419 

QMINLGTH 

OC 

X'OO* 

MINOR  NAME  LENGTH 

A21364 

12402519 

OATT 

OC 

B' 00000000' 

ENO  OR  DEO  ATTRIBUTES 

A21364 

12402619 

SYSTEM 

EOI) 

X '  40  1 

SYSTEM  IS  ISSUING  NO(DO) 

A21364 

12402719 

HAVE 

EOU 

X'Ol  ' 

RET  =  HAVE 

A21364 

12402819 

USE 

EOU 

X  '  03  ' 

RET  =  USE 

A21364 

12402919 

QRETC.OE 

OC 

X'OO' 

RETURN  CODE 

A2I364 

12403019 

OMAJOR 

OC 

AI  *! 

ADDRESS  OF  MAJOR  NAME 

A21364 

12403119 

QM I  NOR 

OC 

AM>) 

ADDRESS  OF  MINOR  NAME 

A21364 

12403219 

OENTLGTH 

EOU 

*-OLSTEND 

LENGTH  DF  ONE  ENTRY 

A21364 

12403319 

*### ip#*#* A**# *#***$ *******  A 2  1364  12403419 


QMTMSG 

CSECT 

0847 

12403519 

OS 

00 

0847 

12404419 

PRINT 

DATA 

A27668 

12404519 

WT0429 

WTO 

'IEF429I  INITIATOR  ' ' 

"  WAITING 

FOR  WORK ' , MF»L, 

A27 66 8*1240 46 19 

ROUTCOE=<2) ,0ESC=f4) 

A2766B 

12404719 

PRINT 

NOOAT  A 

A27668 

12404819 

WT0429EN 

EOU 

4-WT0429  LENGTH 

OF  FNTIRE 

WTO 

A27668 

12404919 

WT0429EX 

EOU 

WT0429EN+DB  SIZE  OF 

WTO  AND  INIT  ID 

A2766B 

12405019 

■tt  * 


•49 


*  NOT 

* 

* 

W  T  0429 A 
* 

* 

WT0429B 

* 

* 

* 

I EFDSOSL 
* 


E  -  IF  WTO  '  WT0429 •  CHANGES.  CHECK  ECU  'WT0429A'  TO 
ASSURE  ITS  VALtlF  IS  STILL  CORRFCT 

SOU  23  NUMBER  OF  BYTES  IN  1ST  HALF  OF  WTO  'WT0429' 
UP  TO  ANO  INCLUDING  THE  1ST  OllOTF  OF 
GENERATED  TEXT.  INCLUDE  4  RYTF  HEADFR  IN  CT 

EOU  WTO429EN-WT0429A  LNG  OF  2ND  HALF  OF  WTO  MSG 

STARTING  WITH  2N0  QUOTE 
INCLUDING  MCS  DATA. 

****!{>  ft**#*  ###<!**# 

EJECT 

CSECT 


■K  #  *  *  *  *  * 


DSOGO 

* 

* 

* 


THIS  DIRECT  SYSOUT  (OSO)  ROUTINE  FIRST 
BUILOS  A  SYSOUT  ENTRY  BLOCK  OF  ALL  SYSOUT 
CLASSES  THIS  JOB  HAS  CALLED  FOR  IN  ITS  JCL 
FROM  THE  SYSOUT  CLASS  DIRECTORY  (SCO).  THIS 
BLOCK  WILL  BE  SEARCHED  LATER  IN  THE  ROUTINE. 

THE  NEXT  FUNCTION  IS  TO  SEARCH  THE  DIRECT 
SYSOUT  CONTROL  BLOCK  (DSOCB)  CHAIN  TESTING 
EACH  DSOCB  TO  SEE  IF  IT'S  ELIGIBLE  FDR  THIS 
JOB.  THE  DEQUEUED  JOB'S  JOB  CLASS  AND  THE 
SYSOUT  ENTRY  BLOCK  WILL  BE  USED  TO  SELFCT 
THE  DSOCB ' S.  SELECTION  IS  INDICATED  BY 
PLACING  THE  PROBLEM  PROGRAMS  STDRAGF  PROTECT 
KEY  FROM  THE  JOBS  JCT  (JCTJSRNO)  INTO  ThF 
SELECTED  DSOCB.  IF  ONE  OR  MORE  DSDCBS  WERE 
SELECTED  BIT  6  IN  JCTRSW2  (JCT)  WILL  BE  TURNED  0 
INDICATE  TO  OTHER  OSO  ROUTINES  THAT  THERE  ARE 
ALLOCATED  DSOCB 'S  FOR  THE  JOB. 

REGISTER  ONE  POINTS  TO  LOT/LCT  AREA 

ICTPARM1  CONTAINS  ADR  OF  QMGR  READ/WRITE  ROUTINE 

EPA  POINTED  TO  BY  THE  QMPCL  IN  THE  INPUT  OMPA  HAS 


SAVE  (14,12) 


LR 

USING 

BALR 

USING 

B 

DC 

DC 

DC 

DC 

DS 

LA 


R 11 ,R  1 
I EFLOT  ,R  1 1 

R12.R0 


SAVE  CALLFRS  REGS 


ADR  OF  LCT/LOT  AREA 


SET 


MODULE  BASE  REG 


*,R12 
DSOGO 
X'CCCC  ' 

C  '  I  EFDSOSL  ' 

X ' 0620 1969 ' 

X'CCCC' 

OH 

RO.SAVARASZ+SYSIZE  SIZE  OF  REG  SAVEAREA 

ANO  SYSOUT  BLOCK  AREA 
FOR  GETMAIN 

GET  REG  SAVE  ANO  SYSOUT  BLOCK  AREA 


GETMAIN  R  »LV= ( 0) 


u/T  /t>r>n 

1  i  1  9 

A2-766R 

12405219 

A27668 

'12405319 

A2766R 

1 24  054 1 9 

A2766R 

12405519 

A2766R 

1 24056 1 9 

A2766R 

12405719 

A2766R 

I 2405R 19 

A2766R 

1  2405919 

A2766R 

12406019 

A2766R 

124061 19 

0R4  7 

12407119 

12408019 

099 

12408919 

099 

12409R19 

099 

12410719 

099 

12411619 

D99 

12412519 

099 

12413419 

099 

12414319 

099 

124152 19 

099 

12416119 

099 

12417019 

099 

12417919 

099 

1 24  1  RR  1 9 

099 

12419719 

09  9 

12420619 

099 

12421519 

1199 

12422419 

099 

12423319 

N  T0099 

12424219 

099 

12425] 19 

099 

12426019 

099 

12426919 

099 

12427R19 

099 

1 242  07 1 9 

099 

12429619 

SCD.099 

12430519 

099 

12431419 

099 

12432319 

099 

12433219 

099 

12434119 

099 

12435019 

099 

12435919 

099 

12436R19 

099 

12437719 

099 

1243R619 

099 

12439519 

099 

12440419 

099 

12441319 

099 

12442219 

099 

12443119 

099 

12444019 

099 

12444919 

099 

12445819 

099 

12446719 

099 

12447619 
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rm 


XC  N0(SAVARASZ+SYSIZF,R1),N0(R1)  CLEAR  ENTIRE  AREA 
ST  R 1 3 , N4 (  *  R  1  )  SAVE  CALLFRS  RFC,  SAVFAREA  ADR 

ST  R 1 , NR ( * R 1 3 )  MY  REG  SAVEAREA  ADR  I  NTH  rAli  PRR 

*  REG  SAVEARFA 

LR  R  1 3  » R  1  MY  R FG  SAVEARFA  AND  SYSOUT  BLOCK  AREA 
USING  SAVESYS.R13  SET  HASE 

V 

L  RVtLCTJCTAD  JCT  CURE  ADR 

USING  IEFJCT.R9  SFT  BASF 

* 


LA  RIO*  QMGR 1  ADR  OF  INPUT  OMPA 

USING  I  OP  ARAMS  »  R  1 0  SET  RASE 


$ 


* 

*  *  * 


DS02A 

«■ 

* 

« 


L  R  7, QMPCL  OMGR 

L  R  7 ,  NO ( t  R  7 )  ADR 

USING  SCDARFA  *R7 
MV  I  SCOP AD  »  HE  XFF 

DROP  R  7 


FXTERNAL  PARM  ADR 
DF  SCD  AREA  USED  BY  CALLING  PROG 
SFT  BASF  FOR  SCD 
CONTINUATION  FLAG  IN  1ST  SCD 
AFTER  PROBABLE  24TH  ENTRY 


#  *  *  *  #  BUILD  SYSOUT  ENTRY  BLOCK  FROM  SCD 


LR  R  2 »  R  7 

USING  SCDARFA, R2 
LA  R4, SYSCLS 

USING  SYSCLS, R4 
LA  R3.SYSNC) 


INDEX  R  FG  FDR  SCD 
SFT  SCD  BASE 
SYSDIIT  ENTRY  BLOCK  AREA 
SET  SYSOUT  BLOCK  BASE 
MAX  ENTRIES  LOOP  REG 


EOU  * 

TM  SCDCLS.HEXFF  TEST  FOR  END  OF  FNTR I ES/END  OF 

FIRST  SCU/SYSOUT  CLASS  ENTRY 
RO  DS02C  ALL  ONFS  -  FND  OF  FIRST  SCO,  READ  IN 

NEXT  SCD  IF  ONE  AND  CONTINUE 
BZ  0S03  ALL  ZERO  -  END  OF  ENTRIES  IN  SCD 


* 

* 

MVC 

* 

LA 

LA 

BCT 

8 

DROP 

4 


MIXED  -  SAVE  SYSOUT  CLASS 

SYSCLS, SCOCLS  SAVE  SCO  SYSOUT  CLASS 

R2  jSCDENTRY ( ,R2  )  INCREASE  SCD  BASE  REG 

R4,SYSENTRY( ,R4J  INCREASE  SYSOUT  BLOCK  RASE 

R3,DS02A  LOOP  LIMITER 

DS03  END  OF  ENTRIES  IN  SCO 

R2,R4 


444444444  READ  IN  NEXT  SCD  IF  ONE 

4 


DSI12C 


4 


EOU  * 

USING  SC  DARE A , R7 
MV  I  SCDNXT  +  N3 , NO 
L  R2 , SCDNX  T 

DROP  R  7 
LTR  R2,R2 
BZ  DS03  ND 


SET  SCD  BASE 

ZERO  L/0  OF  TTR  BEFORE  TEST 
GET  TTR  OF  NEXT  SCD 

IS  THERE  A  TTR 

END  OF  ENTRIES  IN  SCD 


099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

099 

D99 

099 

099 

099 

099 

099 

099 

099 

099 

099 


12448519 

12449419 

12450319 

liAcnin 

12452119 
12453019 
12453919 
12454819 
12455719 
12456619 
12457519 
12458419 
12459319 
124602 19 
12461119 
12462019 
12462919 
12463819 
12464719 
12465619 
12466519 
12467419 
12468319 
12469219 
12470119 
12471019 
12471919 
12472819 
12473719 
12474619 
12475519 
12476419 
12477319 
12478219 
12479119 
12480019 
12480919 
12481819 
12482719 
12483619 
12484519 
12485419 
12486319 
12487219 
12488119 
12489019 
12489919 
12490819 
12491719 
12492619 
12493519 
12494419 
12495319 
12496219 
12497119 
12498019 
12498919 
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$ 

YES 

-  READ  IN  NEXT  SCD 

L 

RUQMPCL 

OMGR 

EXTERNAL  PARM  ADR 

ST 

R  2  ,  N4  ( ,  R  1 ) 

TTR 

OF  SCD  TO  BP  READ 

ST 

0 1  1  Dll 

DC  a  it  t  ai  »ncA  crro  mc  vT  r  *c 

1ST 

SCD) 

MV  I 

OMPOP  tOMRE AD 

READ  FUNCTION 

BAL 

R 6, OMGRRW 

CD  TO  OMGR  RFAD  WRITE  ROUTINE 

I.R 

R2,R7 

SCO  AREA 

R 

0SO2A 

CONTINUE  PROCESSING  WITH  THIS  SCO 

OMGRRW 

EOU 

* 

OMGR  READ  WRITE  INTERFACE 

MV  I 

OMPCL »HEX01 

REAO/WR I TF  ONE  RECORD 

LR 

P- 1  ,  R 1 0 

ADR  OF  OMGR 1 

* 

R 13  POINTS  TO  SAVFAREA 

L 

R15,LCTPARM1 

ADR  OF  OMGR  RFAD/WR I TE  ROUTINE 

$ 

BALR 

R14,R  15 

GO  TO  OMGR 

LTR 

R15,R  15 

OMGR 

ERROR  TEST 

BNZ 

0MGRIC7 

OMGR 

I/O  ERROR 

BR 

R6 

RETURN  TO  CALLER 

id 

id 

* 

>d 

DSD3  EQU  * 

LA  Rl.SYSNO  MAX  ENTRIES  IN  SYSOUT  BLOCK 

SR  RI,R3  LOOP  COUNT  EROM  MAX  ENTRIES 

*  GIVES  NUMBER  OF  SYSOIJT  CLASSES  AVAILABLE 

STC  R 1 , SY  SENTS  SAVE  NUMBER  OF  SYSOUT  CLASSES 

id 

***#****#  LOOP  THROUGH  OSOCR'S  USING  THE  DEQUEUED  JOB'S 

*  JOB  CLASS  AS  THE  FIRST  TEST  IN  SELECTING  OSOCBS 

* 

L  R7  »CV  TPTR  LOCATION  OF  CVT 

USING  CVTDSECT ,R7  CVT  BASE 

L  R7  »CVTMSER  ADR  OF  MASTER  SCH  DATA  AREA 

USING  BASE , R7  M/S  BASE  REG 

d 

ENO  MF=(E,DSOCBNO)  ENO  ON  DSOCB  CHAIN 

* 

L  R7  *  BAOSO  FIRST  OSOCB  ADR 

USING  I EFOSOCB , R7  SET  BASE  FOR  DSOCB 

* 

LA  R4 » L  1 DSOJCLS  LENGTH  OF  'DSOJCLS'  FIELD  IN  DSOCB. 
*  REG  WILL  ALSO  BE  USED  AS  A  SWITCH 

>d 

DS03B  EQU  * 

LA  R7  » NO ( * R7  )  CLEAR  H/O 

LTR  R7,R7  DSOCB  ADR  ZERO 

BZ  DS05  YES  -  DO  ENO  OF  DSOCB  PROCESSING 

CLI  DSOID, HEXED  NO  -  CHECK  FOR  DSOCB  ID 

BNE  DS03A  WRONG  ID,  GET  NEXT  DSOCB 

TM  DSOKE Y, HE XE F  IS  THIS  DSOCB  IN  USF 

BNZ  0SO3A  YES  -  GET  NEXT  DSOCB 

TM  DSOINOl,  DSONOOP  NO  -  IS  DSOCB  FROZEN 

BNZ  DS03A  YES  -  GET  NFXT  DSOCB 

TM  DSO I ND2 , DSOSM  IS  A  STOP/MODIFY  PENDING 

BNZ  DS03A  YES  -  THEN  BYPASS  THIS  DSOCB 


099  12499H19 
099' 1 2500719 
099  12501619 

nn  i  i  c  n  i  c  i  ri 

*  i  J  J  l  t  V  U  £  d  i  / 

099  12503419 
099  12504319 
099  12505219 
099  1250M19 
099  12507019 
099  12507919 
099  12508819 
099  12509719 
099  12510619 
099  12511519 
099  12512419 
099  12513319 
099  12514219 
099  12515119 
099  12516019 
099  12516919 
099  12517R19 
099  1251R719 
099  12519619 
099  12520519 
099  12521419 
099  12522319 
099  12523219 
099  12524119 
099  12525019 
099  12525919 
099  12526R19 
099  12527719 
099  12528619 
1199  12529519 
099  12530419 
099  12531319 
099  12532219 
09?  12533119 
099  12534019 
099  12534919 
099  12535B19 
099  12536719 
099  12537619 
099  12538519 
099  12539419 
099  12540319 
099  12541219 
099  12542119 
099  12543019 
099  12543919 
099  12544819 
099  12545719 
099  12546619 
099  12547519 
099  1254B419 
099  12549319 
099  12550219 
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NO  -  SET  REGS  TO  EXAMINE  DSOCB 


*  JOB  CLASSFS 


LA 

R2.nsn.in  s 

ELIGIBLE  JOB  CLASSES  AREA 

US  ING 

OSOJCLS  «R2 

SET  RASE 

L  PR 

R3.R4 

LOOP  LIMIT  -  R4  WILL  RF  NFG  IF 

4 

AMY  DSOCB'S  HAVE  BFTN  SELECTED. 

4 

BUT  VALUE  REMAINS  UNCHANGED 

4 

0SO3C 

FOU 

« 

CL  I 

osojcls.no 

END  OF  ENTRIES  TEST 

RF 

0SD3A 

YFS  -  GFT  NFXT  DSOCB 

CLC 

OMTPY.OSDJCLS 

JOB'S  JOB  CLASS  VS  DSOCB  JOB  CLASSES 

RF 

0SO4  A  MATCH  -  GO  TEST  SYSOUT  CLASS 

4 

LA 

R2.NK.R2) 

I NCRFASF  RFG  RY  ONE 

rct 

R3  .0SCI3C 

LOOP  AGAIN  IF  MORE  ENTRIES 

4 

DROP 

R2 

DS  (13  A 

FOU 

* 

L 

R7  .OSONXT 

GFT  NEXT  nSOCR  AOR 

4 

8 

DS03H 

TEST  JOB  CLASSES  IN  NEXT  DSOCB 

4 

4  4  4  4 

*•  *  * 

*  *  A  JOB  CLASS 

MATCH  HAS  OCCURRED  SO  NOW  MATCH  THE 

4 

OSOCR'S  SYSOUT  CLASS  TO  THE  SYSOUT  BLnCK  ENTRIFS 

4 

|)S  04 

FOU 

$ 

LA 

R2.SYSCLS 

START  OF  SYSOUT  BLOCK  TO  HE  SCANNED 

USING 

SYSCLS.R2 

SET  BASE 

SR 

R3.R3 

CLEAR  REG 

IC 

R3.SYSFNTS 

NUMBER  OF  ENTRIES  IN  SYSOUT  BLOCK 

4 

0SO4A 

EOU 

A 

CLC 

OSOSCLS. SYSCLS 

TEST  SYSOUT  CLASS 

RE 

0SO4B 

EQUAL  -  MARK  OSOCB  ALLOCATED 

LA 

R2.SYSENTRY(,R2)  UNEQUAL  -  INCREASE  INDEX  REG 

RCT 

R3.0SO4A 

LOOP  AGAIN  IF  MORE  ENTRIES 

B 

0SO3A 

END  OF  ENTRIES  -  GET  NEXT  OSOCB 

4 

DSDFX 

MVC 

SYSCLS I  NO) .SYSCLS  +  SY SENTRY  TO  SHIFT  SYSOUT 

4 

BLOCK  UP  1  BYTE 

4 

MOVE  INCLUDES  ONE  BYTE 

4 

PAD  AT  END  OF  BLOCK 

4 

DROP 

R2 

****4,,»***jnB  CLASS  AND  SYSOUT  CLASS  MATCH  HAS  OCCURRED 

*  SO  MARK  DSOCB  ALLOCATFO  FOR  THIS  JOB  AND 

*  STRIKE  THF  SYSOUT  ENTRY  FROM  THE  SYSOUT 

*  BLOCK  TO  PREVENT  SELECTION  OF  ANOTHER  POSSIBLE 

*  DSOCB  OF  SAME  JOB  AND  SYSOUT  CLASS. 

* 

0SO4R  EOII  * 

M VC  DSOKFY.JCTJSRNO  MOVE  PROTECT  KEY  FROM  JCT 

INTO  THE  DSOCB  TO  MARK 
IT  ALLOCATED  (XXXXOOOO) 

NEG  REG  INDICATES  ONE  OR  MORE 


099  12551119 
099  12552019 
IJ9V  12552919 
099  12553819 
099  12554719 
099  12555619 
099  12556519 
099  12557419 
099  12558319 
099  12559219 
099  12560119 
099  12561019 
099  12561919 
099  12562B19 
099  12563719 
099  12564619 
099  12565519 
099  12566419 
099  12567319 
099  1256B219 
099  12569119 
099  12570019 
099  12570919 
099  12571B19 
099  12572719 
099  12573619 
099  12574519 
099  12575419 
099  12576319 
099  12577219 
099  12578119 
099  12579019 
n99  12579919 
099  12580819 
099  12581719 
099  12582619 
099  12583519 
099  12584419 
099  12585319 
099  12586219 
099  12587119 
099  12588019 
099  12588919 
099  12589819 
099  12590719 
099  12591619 
099  12592519 
099  12593419 
099  12594319 
099  12595219 
099  12596119 
099  12597019 
099  12597919 
099  12598819 
099  12599719 
099  12600619 
099  12601519 


LNR  R4.R4 
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*  OSOCR'S  HAVE  RFEN  SFLFCTFf) 

CLC  DSOSCLS, JCTJMGPO  IS  THE  MSGCLASS  POHAL  TO 

*  the  dsocb's  sysout  class 

HNE  DS04C  NO  -  CONT  PROCESSING 

HI  OSOINDl tDSOMSGCL  YESTURN  (IN  MSGCLASS  BIT  IN  OSOCH 

>(■ 

*«**#**«*  STRIKE  SYSnilT  CLASS  FROM  SYSOUT  BLOCK 


DS04C 


* 

DS05A 


* 

DS05B 


R3,SYSCLS+(SYSN0*SYSENTRY)-1  END  OF  SYSOllT  BLOCK 


R3,R2 


R3.DSOEX 

R3.SYSENTS 

R3,RO 

R3 1  5YSENTS 
R3,R3 
DS05 
DS03A 


TO  GET  NUMBER  OF  BYTES  TO  BE  MOVED 
NOTE  -  A  LOW  ORDFR  VALIIF  ONLY  NOW 
F X  I  STS  IN  R3 

SHIFT  SYSOllT  BLOCK  FNTRIFS 

LEFT  ONE  BYTE  PLUS  PAD  BYTE 

PRESENT  NUMBER  OF  ENTRIES  IN  BLOCK 

SUBTRACT  ONE 

STORE  RFVISFD  COUNT 

IS  COUNT  ZERO 

YES  -  00  END  OF  OSOCK  PROCESSING 
NO  -  GO  GET  NEXT  DSOCB 


OMGR 10 


4 

#  ■ dm# 


R  7  ,  R  1 5  SAVE  CONDITION  CODE  FROM  OMGR 
I  >05 B  00  END  OF  MODULE  PROCESSING 


*  4  4  4  4  ALL  DSOCB ' S  HAVE  BEEN  SCANNED  AND  TESTED, 
OP.  ALL  SYSOUT  ENTRIES  IN  THE  SYSOUT  BLOCK 
HAVE  BEEN  PROCESSED. 

NOW  TEST  IF  ANY  DSOCB'S  WERE  SELECTED. 

IF  YES  MARK  THE  JCT  TO  INDICATE  THIS, 
RELEASE  SAVE  AND  WORK  AREAS  AND  RETURN 
TO  CALLER. 


4 

R4.R4  T 
DS05A  P 
JCTRSWZtJCTDSOJB 


TFST  IE  ANY  DSOCB'S  WERE  SELECTED 
PLUS  -  NO  DSOCB'S  SELECTED 
B  NEG-  ONF  OR  MORE  DSOCB'S  WERE 
SELECTED 


R 7 , R 7  CLEAR  TEMP  CONDITION  CODE  REG 


MF=(E, DSOCB NO) 


DEO  ON  DSOCB  CHAIN 


EQU  *  ENTER  HERE  IF  PASSING  CONDITION  CODES 

LR  R I , R 1 3  AREA  TO  BE  RELEASED 

L  R 1 3 , SVEAR A  +  N4  GET  CALLER'S  SAVEAREA  ADR 

XC  SVEARA+N8IN4) .SVEARA+NB  CLEAR  MY  SAVEAREA 

ADR  IN  CALLERS 
SAVEAREA 

DROP  R  1 3 

lA  RO.SAVARASZ+SYSIZE  SIZE  OF  AREA  TO  BE  RELEASED 
FREEMAIN  R , LV* I 0> , A= ( 1 ) 

LR  R15.R7  LOAD  ANY  CONDITION  CODES 


nQQ 

099  '12603319 
099  I  2604  219 
099  126051 19 
D99  12606019 
n99  12606919 
099  12607819 
099  12608719 
099  12609619 
099  12610519 
099  126114)9 
099  12612319 
099  12613219 
099  12614119 
099  12615019 
099  12615919 
099  12616R19 
099  12617719 
099  1261R619 
099  12619519 
099  12620419 
099  12621319 
D99  12622219 
099  12623119 
099  12624019 
099  12624919 
099  1 262  SB  1 9 
099  12626719 
099  12627619 
099  12628519 
099  12629419 
099  12630319 
099  12631219 
099  12632119 
099  12633019 
099  12633919 
099  12634819 
099  12635719 
099  12636619 
099  12637519 
099  12638419 
099  12639319 
099  12640219 
099  12641119 
099  12642019 
099  12642919 
099  12643H19 
099  12644719 
099  12645619 
099  12646519 
099  12647419 
099  12648319 
099  12649219 
099  12650119 
099  12651019 
099  12651919 
099  12652819 
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RETURN  ( 14,  1?)  ,RC=(  15)  RFTlIRN  TO  CALLER 

099 

12653719 

* 

f  1 9  9 

X«  X*  X*  X« 

X«  X*  x< 

A  A  FOU ATE  S 

099 

12655519 

X* 

09  9 

12656419 

NO 

EOII 

0 

099 

12657319 

N 1 

FOII 

1 

099 

1265P.219 

N2 

EOII 

2 

099 

12659119 

N3 

FOII 

3 

099 

12660019 

N4 

FOII 

4 

099 

12660919 

N7 

EOU 

7 

099 

12661519 

Nn 

FOII 

A 

099 

1266271° 

HEXFF 

EOU 

X  '  F  F  ' 

099 

12663619 

HFXOl 

FOU 

X  '01  < 

099 

1266451° 

HF  X  FI) 

FOII 

X  '  FO  ' 

099 

12665419 

X1 

099 

12666319 

*>  tf 

XI  X*  X* 

A  A  ENO/DEO  FOR  DIRECT  SYS01JT  CONTROL  BLOCKS  (DSOCB) 

099 

12667219 

* 

099 

1266B119 

nsncHNO 

ENO 

(OSnCBNOO,nSOCRNORtE, 05, SYSTEM) ,MF*L 

099 

12669019 

099 

12669919 

a  A  a  ENO/DEQ 

0  AND  R  NAMES 

099 

12670R19 

* 

099 

12671719 

osocrnoo 

DC 

CLfl ' SYS ! FFSO 1  0  -  MAJOR  NAME 

099 

12672619 

nsnCHNOR 

DC 

C 'DSOCB'  R  -  MINOR  NAME 

099 

126735.19 

* 

099 

12674419 

* 

099 

12675319 

X*  i\t  >H  5* 

*  *  #  , 

a  a  SYSOUT  CLASS  DIRECTORY  (SCO) 

099 

12676219 

X* 

099 

12677119 

SCDAREA 

nSECT 

099 

1267R019 

SCDCLS 

ns 

CL  1  SYSOUT  CLASS 

099 

12678919 

ns 

CL6  0  MGR  DATA  FOR  SYSOUT  0 

099 

12679819 

SCOENTRY 

FOU 

A-SCOCLS  SIZE  TIE  EACH  SYSOUT  ENTRY 

(199 

12680719 

ns 

CL ( SCOENTRY A23  )  24  ENTRIES  IN  SCO 

099 

12681619 

SCDPAI1 

ns 

CL4  PAD 

099 

12682519 

SCDMXT 

ns 

F  TTR  OF  NEXT  SCO 

099 

126B3419 

>JC 

099 

12684319 

a  m  *  !« 

AAA 

A  A  SYSOUT  CLASS  BLOCK 

099 

12685219 

A 

099 

12686119 

SAVESYS 

OSECT 

099 

12687019 

SVFARA 

ns 

CL72  REG  SAVEAREA 

099 

12687919 

SAVARASZ 

EOU 

A-SVEARA  SIZE  OF  SAVF  AREA 

099 

126888  ID 

SYSENTS 

ns 

CL1  NUMBER  OF  ENTRIES  FNTFREO  IN  RLOCK 

099 

12689719 

SYSCLS 

os 

CL  1  SYSOUT  CLASS 

099 

12690619 

SYSFNTRY 

EOU 

A-SYSCLS  SIZE  OF  EACH  SYSOUT  ENTRY 

099 

12691519 

sysnd 

EOU 

36  MAX  NUMBER  OF  ENTRIES 

099 

12692419 

x< 

099 

12693319 

ns 

CU SYSENTRY* ( SYSMO-1 ) )  FINISH  OUT  BLOCK 

099 

12694219 

ns 

CL  1  PAD  FOR  'MOVE'  TO  STRIKE  SYSOUT 

ENTRIES 

099 

12695119 

A 

FROM  THE  SYSOUT  BLOCK,  HEX '00' 

099 

12696019 

SYSIZE 

EOU 

a-SYSENTS  TOTAL  SIZE  OF  SYSOUT  RLOCK 

099 

12696919 

099 

12697819 

099 

12698719 

I EFOSOCB 

OSECT 

099 

12699619 

IEFDSOCB 

099 

12700519 

EJECT 

099 

12701419 

RSAR 

OSECT 

THIS  DSECT  IS  USED  TO 

MAP  ALLOCATE/ 

12710014 

SAVEAREA 

ns 

lflF  TERMINATE  REG  SAVF  AREAS  FOR  USE 

BY 

12720014 

REMLST 

ns 

2 F  THIS  MODULE 

12730014 
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SWTCH  ON  SAYS  WR1TF  'INPUT  QUEUE 
EMPTY'  MESSAGE  TO  t DM. SQL E 


NrjWRKECB  DS  2f 
ECBLST  DS  2 F 
WTOSWTCH  ns  c 

* 

I EFBASEA 

EJECT 
CVTOSECT  DSECT 
CVT 

EJECT 
IEPCSCB  DSECT 
1EECHAI N 

EJECT 
IEFJCT  DSECT 
IEFAJCTB 
IEFSCT  OSECT 

IEFASCTB 
*5* 

JCI'DETOA  EQU  I NJMJCT  +8R 

EJECT 

ft*  ft  ft*  ft fttfftftft ft* ****************  ft* ******* ft ******* ft ft****#**##***#* 


1ST  TTR  IN  END  OSMAME  TABLE 


THE  FOLLOWING  REPRESENTS  A  BLOCK  OF  MAIN  STORAGE  WHICH  IS 
ALLOCATED  FOR  THE  LIFE  OF 
OF  THIS  INITIATOR.  IT  CONTAINS: 


* 

* 
ft 
* 

* 

* 

* 
ft 

ft 

ft  * 

ft ft* ************** ******** ft ********************************* ft* ********** 

IEFLOT  DSECT 
! EFALLCT 


It) 
(2  ) 

131 


THE  LCT  (LINKAGE  CONTROL  TABLE) 

A  2  LEVEL  REGISTER  SAVE  AREA  FOLLOWED  BY  THE 
THE  QUEUE  MANAGER  PARAMETER  AREA 
AN  ALTERNATE  QUEUE  MANAGER  PARAMETER  AREA 


12740014 

12751)014 
12740014 
127700  I  4 
127B0O14 

i?R7nni 7 
12880000 
1  2  900000 
12920000 
I  2940000 
12960000 
12980000 
13000000 
13020000 
130260L7 
13032017 
13040000 
13060000 
13080000 
13100000 
13120000 
13140000 
13160000 
13180000 
13200000 
13220000 
13240000 
13260000 
132ROOOO 
13300000 
13320000 
13340000 
13360000 


LCTBATMN 

OS 

F 

****  #T0 

BE 

AODED  TO  LCT 

13380000 

LCTSOOMP 

OS 

P- 

*****T0 

BE 

AODFU  TO  LCT ( VMS  ONLY)  POINTER  TO 

13400000 

* 

SYSOUT 

'  QUEUE  MANAGER  PARAMETER  AREA 

13420000 

LCTSREG 

OS 

F 

*ft***|Q 

BE 

ADDED  TO  LCTIMVT  ONLY)  -  PTR  TO  STOP  I 

NIT 

13440014 

x« 

ECB 

13460014 

LCTINTSW 

OS 

OC 

INITIATOR  INTERNAL  SWITCHES 

1272 

13462019 

LCTIHIER 

ECU 

128 

RUN  IN  HIERARCHY  ONE 

1272 

13464019 

LCTSOOXX 

EOU 

32 

ATTACH  IEESOOXX 

1272 

13466019 

LCTMINR6 

EOU 

16 

JOB  FLUSH  -  USE  MINPAR 

1272 

13468019 

LCTSTART 

EQU 

8 

TASKNAME  NOT  ON  COMMAND 

1272 

13470019 

LCTSTOP 

EOU 

4 

INITIATOR  INTERNAL  STOP 

1272 

13472019 

LCT  ABEND 

EOU 

z 

FXECUTEO  PROGRAM  ABENDED 

1272 

13474019 

LCTSPLP 

OS 

F 

*****•[■0 

RE 

ADDED  TO  LCTIMVT  ONLY)  -  PTR  TO  START 

PAR- 

1  34800 14 

* 

AMETER  L 1ST 

13500014 

lcttmwrk 

OS 

4F 

#****T0 

BE 

ADDED  TO  LCT (VMS  ONLY)  TIMER  WORK  AREA 

13520000 

LCTJOBLB 

OS 

F 

***«*T0 

BE 

ADOED  TO  LCT ( VMS  ONLY)  JOBLIB  OCR  PTR 

13540000 

LCT ATL  ST 

OS 

F 

***#*Tn 

RE 

AOOEO  TO  LCT (VMS  ONLY)  POINTER  TO 

1 3560000 

* 

ALLOCATE/ TERMINATE  PARAMETER  LISTS 

1 3580000 

REGSAVE 

DS 

36F 

ALLOCATE/TERMINATE  REGSAVE 

AREA 

13600000 

0MGR1 

OS 

9F 

QUEUE  MANAGER  PARAMETER  AREA 

13620000 

13  MGR  2 

DS 

9E 

ALTERNATE  QUEUE  MANAGER  AREA 

1 3640000 

TRSTKI NF 

OS 

2F 

NEEDED  FOR  TRACK  STACKING  AND  QUEUE 

1  3660000 

BREAK  INFORMATION.  1ST  BYTE  TO  CON- 


1  3680000 


-56- 


x< 

TAIN  NUMBER  OF  BIIFFFRSt  NF X T  3 

BYTES 

13700000 

FOR  STACK  AODR,  NFXT  4  RYTES  FOR 

13720000 

* 

OliEUE  BREAK  INFORMATION 

13740000 

OMurni 

CAl  l 

AMAU  1  -*-2'. 

PTR  IN  0 !*' P A  7u  Tkk  STaCn  1NPU 

13760000 

0MWT02 

EOU 

GMGR2+24 

PTR  IN  OMPA  TO  TRK  STACK  INFD 

13780000 

FCHL I  ST 

DS 

IF 

13786015 

1  C  T  !  n  6  N  T 

DC 

2F  'O' 

HOLDER  FOR  IDENTIFIER 

13792015 

LCTEORCF 

DS 

CLH 

1241 

1 379301 B 

LCTLIMI t 

DS 

C 

1241 

1 379401 8 

FRCPRTY 

ns 

c 

1241 

13795018 

IN1TPBTY 

ns 

c 

INITIATOR’S  PRTY 

1241 

1 3  79601 B 

#  THESE 

:  FIFLDS  ARF  NEEDED 

FOR  L-SHAPE/IN1T  MERGE  * 

1272 

13796219 

DS 

OF 

1272 

13796419 

LCTOPSwl 

DS 

DC 

INITIATOR  OPTIONS  BYTE  1 

1272 

13796619 

lctpkeyf 

EOU 

128 

DONT  GET  PROTECT  KEY 

1272 

13796819 

lctdwff 

EOU 

64 

DONT  P?’"'"  CSS  DEDICATED  WORKF 

1272 

13797019 

LCTSTMDF 

EOU 

32 

DONT  PROCESS  STOP /MODI FY 

1272 

13797219 

lctminpf 

EOU 

16 

GET  REGION  SIZE  SPECIFIED 

1272 

13797419 

LCVCANF 

FOU 

8 

ALLOW  CANCEL  ONLY  AT  ALLOC 

1272 

13797619 

LCTC1NEJF 

EOU 

4 

PROCESS  ONLY  ONE  JOB 

1272 

137978)9 

LCTICMOF 

EOU 

2 

DONT  PROCESS  INITIATOR  CMOS 

1272 

13798019 

LCTFX  IT 

DS 

F 

ADDRESS  INITIATOR  EXIT  LIST 

1272 

13798219 

LCTOPSW? 

DS 

OC 

INITIATOR  OPTIONS  BYTE  2 

1272 

13798419 

lcttimef 

EOU 

128 

DONT  TIME  THIS  JOB 

1272 

13790619 

LCTCRF 

FOU 

64 

D(1NT  ALLOW  CHFCK  PT /RE  ST  ART 

1272 

13798819 

LCTDSOE 

EOU 

32 

DONT  PROCESS  DSD 

1272 

13799019 

LCTCC1M 

DS 

F 

COMMUNICATIONS  PARM  AREA  PTR 

1272 

13799219 

LCTJSCB 

DS 

F 

ADDRESS  OF  JSCB  FOR  TASK 

1254 

13799419 

1EEEND 

EOU 

# 

END  OF  LIFE-OF-TASK  BLOCK 

13800000 

EJECT 

1 3B20000 

OMRDSECT 

DS 

OF 

13840000 

IEFOMRES 

13860000 

I FFQMNGR 

13880000 

OMDSC 

EOU 

OMT1D+2 

CR  17 

13890017 

CANCELED 

EOU 

X'Ol'  SET 

BY  ALTER  ROUTINE  FOR  IN-0  JOB  CAN35L 

13900000 

EJECT 

13910017 

DSNIN 

DSECT 

13920000 

DS 

OD 

13940000 

*  DSNAME  ENO  TABLE  INPUT 

AREA 

13960000 

ICTTR 

DS 

CL3 

CURRENT  TTR 

13980000 

DS 

CL  1 

TABLE  ID 

14000000 

ILTTR 

DS 

CL3 

LAST  TTR 

14020000 

DS 

CL  1 

ALIGNMENT  ZERO 

14040000 

ICHAR 

DS 

F 

ACCOM.  DSNAME  CHAR  COUNT 

14060000 

I CNT 

DS 

H 

ACCUM.  DSNAME  COUNT 

14080000 

DS 

CL  I  6  2 

DSNAME  RECORDS 

14100000 

* 

14120000 

*  DSNAME  UFO  TABLE  OUTPUT 

AREA 

14140000 

OCTTR 

DS 

CL3 

CURRENT  TTR 

14160000 

OTARID 

DS 

CL  1 

TABLE  ID 

14180000 

OLTTR 

DS 

CL3 

LAST  TTR 

14200000 

DS 

CL  1 

14220000 

CICHAR 

DS 

F 

ACCUM.  DSNAME  CHAR  COUNT 

14240000 

DCNT 

DS 

H 

ACCUM  DSNAM  COUNT 

14260000 

OSTART 

DS 

CL  162 

DSNAME  RECORDS 

14280000 

DEND 

EOU 

* 

14300000 

14320000 

TWO  A  byte  areas  for  tbuild  routine 
™EE  ds  r 


DS  F 

os  00 

ds  r 


BUD  ds 

•4 

IB'FLOT  DSECT 


ORG  REGSAVE+72 


QTTR 

DS 

CL  3 

4 

DS 

Cl  l 

*  WORK 

4 

AREA 

LENGTH 

DS 

H 

ttrbufi 

DS 

CL3 

TTRBUF2 

DS 

CL3 

testeoo 

os 

CL  1 

CHARSAV 

DS 

F 

CNTSAV 

* 

OS 

H 

*  PARAMETER 

LIST  E 

TBLPARM 

DS 

F 

OSNBEG 

DS 

E 

DSNEND 

DS 

F 

IeL  DSECT 

*>««  ss$i  Exirs-»™ 

lezcnM 

iezjscb 

CIBDSECT  DSECT 
I6ZCIB 
IEEWTPCB 
END 


CORE  ADDR  FOR  READ  OR  WRITE 
T  T  R 


CURRENT  OSNAME  LENGTH 
BUFFERS  TO  HOLD  TTR  S  FOR 
0  MGR  WRITE  FUNCTION 

ncL2c  rATA  INRICATnR-X*FF* 
COUNT  AND  CHARACTER 
SAVE  AREAS 

ROUTINES 

ADDR  OF  TREE-8 
2ND  FARM  LIST  ENTRY 
1ST  PARM  LIST  ENTRY 


1272 

1272 

M4339 


1  ‘♦341)01)0 
1 4  360000 
14380000 
14400000 
14420000 
1 4440000 
1 44*0000 
l 44800  0 
1 4500000 
E  14620000 
1 4940000 
14560000 
1 45B0000 
14600000 
14620000 
14640000 
1 4660000 
14680000 
14700000 
14720000 
14740000 
14760000 
14780000 
14800000 
14820000 
14840000 
14860000 
14B62019 
14864019 
14866019 
14868019 
14870019 
14872019 
14874019 
14B77019 
14880000 

l 
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TITLF  •  IFESD104-MS/1  STEP  DELETE  INTERFACE  1 
IFESU104  CSFCT 


*0  1200-01  1800, 016200-016400, 021400-02160(1 

>*oo?60o,on44o<i,oo56oo,o0640o,oio8oo-oi58  0o,  028600 


M2696 
mahh  l 
1272 
127? 
M  4  3  7  3 


HAI.P  R12.0 

>;<  a 

>;<  A,  >:< ;;;  ;A  it  ia  v  i!  i;  it  j,*  xt  :;i  x;«  i;r  i|<  u  j;<  xt  >|t  it  it  it  >;t  it  xi  it  i<  it  it  x<  i-  s;e  it  x;e  it  =;■  it  '-a  it  it  xt  xt  i*  4  4  4  j!c  it  A  A  i*  A  i*  it  it  4  it  x*  it  xt  it  Xt  A  A  A 
■:>  >:< 

*  MS/1  STFP  nPLFTB  INTFKFACF  * 

*  v 

if  4 »:«  if  j;«  j!x  j;«  )[t  >;t  >;c  i;<  v;«  s;<  »;<  s;t  >;< »;« i;<  >;<  >j«  },*  >;c  $  #  ^  #  *«  *  #  ljt  >;<  j;<  ?;<  >;c  j;<  ^  if,  >;<  >;<  #  #  $  »!*  #  #  *!*  X*  #  *  >1*  #  #  >;«  j,y  >;«  #  #  #  #  aj<  ijt »;« #  j;oj<  >;<  >;<  #  j{«  & 
if.  if 

*  STATUS  -  CHANGE  LFVFL  ODO 


*  FONT  I  ON  (1)  H  F  AO  LCT  FROM  JOB  fJllFUF  FUR  SYSTEM  TASKS 
A 

*  entry  POINT:  IFFSIU04  FROM  IFFS0263. 

if 


if 

* 

12  7? 

$ 

>!< 


*  INPUT: 

REGISTFR 

(IMF 

POINTING  TO  PARAMFTFR 

LIST 

CONSISTING  OF: 

lit 

)!< 

(  1  ) 

USER 

PARAMS  POINTER 

if 

it 

(2  ) 

ECU 

LIST  POINTER 

if 

if 

(  3  ) 

ATTACH  L  LIST  POINTER 

if 

>!« 

(4  ) 

LCT 

POINTER 

if 

if 

(5  1 

SYST 

FM  TASKS  -  POINTER  TO 

PARM 

ARFA 

1272 

if 

i'ji  IN 

SYSTEM  TASKS  -  ZFRO 

12  72 

it 

(6) 

TINT 

LIST  POINTER 

if 

if 

(7) 

DC  8 

ADDRESS 

1270 

#  OUTPUT  -  THE  INPUT  PARAMETER  LIST  CONTAINING  AN  UPDATED  TINT  LIST 


POINTER 


if 
* 

1272 

1272 
* 

#  * 
if  >:<  *  mt  #  iff  $  >[(  *  $  in  #  >:c  $  #  #  4  #  #  #  $  ^  *  #  #  *  #  *  »k  *  $  $  *  $  #  #  #  >{<  i,*#  #  in  >;<  $  >;<  #  #  #  #  #  *  #  #  ^  >;«  ^  ^  ^  >x  #  >,’< 

EJECT 


#  EXTERNAL  REFERENCES  -  IEFS0S14 
>;< 

EXIT  -  I  E  F  SO  1 64 

* 

*  TARLES/WORK  AREAS  T  I OT , LCT, CSCfi 

*  ATTRIBUTES  -  REENTRANT 


L 

LA 

M  V  I 

R5.ASD062 

R6,0ISPLACE(R5) 

0 ( R6  >  *X  •  FF ’ 

GET 

BUMP 

SET 

ADDRESS  OF  IFF 50062. 

THE  ADDRESS  TO  THE  FTT  FLAG. 
THE  FLAG  'FROM  AFAR'. 

iiSIng 

IF  F  C  S  C  H  » R  ^ 

127? 

USING 

I  F  F  L  0  T  ,  R  6 

127? 

USING 

I0PARAMSiR7 

127? 

}Jt 

4  THE  FOLLOWING  SFCTIUN  flF  CnnE  SFRVFS  ONLY  TO  IDENTIFY  THIS  MODULE 
*  IN  A  MEMORY  DUMP 

A 

H  FIRST 


oo()?o  non 

00040000 
00041 019 
00043019 
00046019 
00052019 
00056019 
00060000 
oooroooo 
00100000 
00120000 
00140000 
00160000 
OOIROOOO 
oo 2 oo non 
00220000 
n  o  2  4  o  o  o  o 

00250019 
00280000 
00300000 
00320000 
00340000 
00360000 
00380000 
00400000 
00420000 
004300)9 
00440019 
00460000 
00470019 
0  0  4  E  0  0  0  0 

00500000 

00520000 

00540000 

00560019 

00580000 

00600000 

00620000 

00640019 

00660000 

00680000 

00700000 

00720000 

00740000 

00760000 


007650 19 
00770019 
00775019 
00780000 
00800000 
00820000 
00840000 
00860000 
00880000 
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nc  x'cccc  * 

nc  C1FFSD104'  >:• 

nc  x'06oai966'  * 

nc  x'cccc  * 

FIRST  ns  OH  * 

* 

>|c  3J1  >je  j|e  *  j|c  i'f  >;r  <c  >;t  j|c  »|e  ?jt  »|c  jjr  #  #  ijt  >|t  i‘,(  >;<  i|c  j[e  jjc  >jt  >jc  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  >.  nt  ft  >\i  >;<  ft  a;<  ft  ft  ft  ft  ft  ft  a;'  ft  >;e  ft  ft  ft  v  ft  *;c  ft  >;c  »;c  j;c  ft  ft 


FJFCT 

I.R  R2tR1 

I.  R3.X16IR2) 

LTR  R  3  f  R 3 

HZ  SD104005 

L  R  5  »  XR ( R3 ) 

LA  R 0 *  X 1 04 

GETMAIN  R,LV=(0) 


SAVF  PARAMETER  LIST  RFGISTFR 


R13fX3?(Rl ) 

R7, CHORA 
R 7 1  XO ( R 1 ) 
X4(X20,R1),X4(R1) 
X4(X3,R1) ,X4(R3) 
R4,X?4(R] ) 
R4,0MPCL 
QMPflP  ,X4 
R  1 0 »  R 1 
R15,SD514RD 
R  1.4,  R  15 
R  1  5  ♦  R  1 5 
SD1 04002 
Rli  X'OHO' 

R 1 1  X 1 2 


LOAn  SYSTEM  TASK  I  NO  I C  ATHR 

TEST  FOR  SYSTEM  TASK 

HRANCH  NOT  SYSTFM  TASK 

LOAH  CSC  B  AODRFSS 

GETMA I M  FOR  24  PARM  AREA  AMO 

72  RFC,  SAVF  AREA  +  8  RFMITTF  L! 

SAVF  ARF A  ADDRFSS 

ADDRESS  OF  OMPA  IN  CSCH 

STORE  ADDRESS  IN  PARM 

ZERO  PARM  AREA 

MOVE  TTR  TO  PARM  ARFA 

ADDRESS  OF  REMOTE  LIST 

REMOTE  LIST  PTR  IN  OMPA 

INDICATE  READ  OPERATION 

SAVF  ADDRESS 

ADDRESS  OF  IFFSD415 

READ  I.CT  FROM  JOB  OIIEOE 

TEST  FOR  I/O  ERROR 

BRANCH  NO  I/O  ERRnR 

OBO  ABEND 


ABEND  II  I, DUMP 


SOI 04002  L  R6,X8(R1)  ADDRESS  OF  LCT 

MVC  0MGR1 (X3M ,CHOPA  MOVE  MAIN  OMPA  TO  LCT 
M VC  0MGR2IX36I ,CH50A  MOVE  SYSDUT  OMPA  TO  LCT 
LA  R 7 f  OMGR 1  ADDRESS  OP  OMPA 

L  R11,0MWT0  ADDRESS  DF  TRACK  STACK  INFO 

MVC  TRSTKINF(XB)  fXOIRll.  )  MOVE  TS  INFO 


LA  R4f  REGSAVE  +  72  ADDRESS  OF  REMOTE  LIST 

ST  R4 1 OMPCL  ADDRESS  OF  REMOTE  LT  IN  OMPA 

LA  R4,TRSTKINF  ADDRESS  OF  TRACK  STACK  INFO 

ST  R4f 0MWT01  STORE  TRACK  STACK  INFO 

ST  R4 1 0MWT02  IN  BOTH  OMPAS 

LA  R4f REGSAVE  ADDRESS  OF  SAVE  ARFA 

ST  R4f  LCTCMCBA  STORE  IN  LCT 

LA  R4 f QMGR2  ADDRESS  OF  SYSOUT  0  MGR 

ST  R4  f  LCTSOOMP  PARM  ARFA  IN  LCT 

L  R 8 t LCT JSCB  ADDRESS  OF  JOB  STEP  JSCH 

USING  IEZJSCB,RB 

L  RBfJSCBWTP  ADDRESS  OF  WTP  CONTROL  BLK 

DROP  R8 

USING  WTPCB.RB 

MVC  WTP0MPAD,LCTSI10MP  +  X1  MOVE  ADDRESS  OF  OMPA 
DROP  R8 

LA  ROt  X104  LENGTH  TO  BE  FREED 

LR  R1,R10  RESTORE  AODRFSS 

FREEMAIN  R t L V= ( 0 ) , A= ( 1 )  FREE  PARM  REMOTE  LT  AND  RSA 
MVC  LCTPARM1(X16),X0(R3)  MOVE  LCT  PARMS  INTO  LCT 


1272 
127? 
1272 
1272 
12.72 
12  72 
1272 
1272 
1272 
M2696 
M2  896 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
12  72 
1272 
1272 
1272 
1272 
1272 
12  72 
1272 
1272 
127? 
1272 
1272 
1272 
1272 
1272 
1272 


00900000 
00920000 
0 0940000 
00960000 
009HOOOO 

0 1 nnnooo 
0 1 020000 
0 1 040000 
01 060000 
0] 070019 

n  1  ohoo  1 9 

01090019 
01  1 000  19 
01 1 10019 
0  1120019 
01  130019 
0114001 9 
01 150019 
01160019 
01170019 
0  1 18  00 1 9 
01190019 
01200019 
01210019 
0] 220019 
01230019 
01240019 
01250019 
01260019 
01270019 
01280019 
01290019 
01293019 
01296019 
01300019 
01303019 
01306019 
01310019 
01320019 
01330019 
01340019 
01350019 
01360019 
01370019 
01380019 
01390019 
01391019 
01392019 
01393019 
01394019 
01395019 
01396019 
01397019 
01400019 
01410019 
01420019 
01430019 


? 


HK  FFMA  T  N  R.L V=24,A= (I  l  )  , 
XC  X  16 ( X4 ,K? )  , X 16  <  R2 ) 
ST  R6,12IH?> 

SDl 04004  coo 
L  R 
L 

HU 

Sr>64VCl)N  r>C 


R  1,R? 

R  1  5 . SD64VC0N 
R  1 5 
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SR  =  TCflRF  FREE  SYSRARM  AND  T.S  INFO  1272 
7ERH  PARM  PTR  1272 

■STORE  I.  C  T  ADDRESS  IN  PARM  LIST  \P7? 

RESTORE  parameter  list  address 

ADDRESS  of  IEFS0064 
'•n  11]  IFFS006<i 


0144001 9 
0145001 9 
0 1 46  DO  1 o 
01600000 
02300000 
023 20O00 
02340000 


|  rS0514R0 

DC 

VI IFFS0614! 

02380000 

f,  1  AS  1)062 

.DC 

V  I  I  F F Si '06 2  1 1 

1272  024000)9 

RO 

FOO 

0 

5  R 1 

FOO 

1 

02500000 

5  R2 

FOll 

2 

02520000 

1  R  3 

Foil 

3 

02540000 

i  R4 

FOll 

4 

02560000 

t  R  6 

FOIJ 

5 

0?  5 A 0000 

|  R6 

Foil 

6 

02600000 

5;  K7 

FOll 

7 

02620000 

I  R8 

FOll 

8 

02640000 

|  H9 

FOll 

9 

0266000 0 

?  RIO 

FOll 

10 

0  2  6  Ft  0  0  0  0 

i  "11 

FOll 

1  1 

02700000 

R 1 2 

FOl) 

12 

02720O00 

R13 

FOll 

13 

02740000 

&  R 1  4 

If  01 1 

14 

02760000 

R  1  5 

FOll 

15 

02780000 

XO 

FOIJ 

0 

02800000 

XI 

FOll 

1 

1272  02802019 

l  XA 

EOU 

4 

1272  02803019 

■t  X  3 

EOU 

3 

127?  02804019 

|  X  7 

EOU 

7 

M 2 6 9 6  02804619 

;  x  8 

EOU 

fl 

M2696  02805219 

1.  X 12 

EOU 

12 

1272  02806019 

t  X  1 6 

FOIJ 

16 

1272  02808019 

X20 

EOU 

20 

1272  02810019 

f  X24 

EOU 

24 

M2 696  02811019 

,f  X  32 

EOU 

32 

1272  02812019 

X  36 

EOU 

36 

1272  02814019 

X  104 

EOU 

104 

1272  02815019 

T  COR  E 

EOU 

1272  02816019 

If)  I  S  PL  AC  F 

EOU 

EJECT 

760  j 

1272  02B1R019 

iefwtpcr 

1272  02818319 

eject 

1272  02818619 

IE2 JSCB 

1272  02818919 

EJECT 

1272  02819219 

I eflot 

DSECT 

1272  02819519 

ieeallct 

02820000 

OS 

IF 

02840000 

LCTSOOMP 

ns 

IF 

aooress  of  message  class  queue 

1272  02846019 

>* 

1272  02852019 

us 

FIF 

MANAGER  PARAMETER  AREA 

1272  02858019 

R  FfiSAVE 

os 

36F 

1272  02864019 

OMfiR  1 

ns 

9F 

MAIN  OMfiR  PARAMETER  ARFA 

1272  02R70019 

OMfiR? 

ns 

9F 

02880000 

OMCAP 

TRST  K I  ME 

EOl) 

ns 

OMfiR 1+24 

2F 

'ALTERNATE'  OMfiR  PARAMFTER 
PTR  IN  OMPA  Tn  TRK  STACK  INFO 

AREA  02900000 
02920000 

-mm-omi  PUR  TRACK  STACKING  AND  QUEUE  02940000 

* 

Jf* 


* 

* 


OMWTOl 

FOl  j 

OMGR 1 +?4 

OMWTO? 

POIJ 

OMCR2 i ?4 

ns 

flF 

LCTJSCB 

ns 

F 

I  FFFNH 

FOll 

FJFCT 

» 

I FFOMNGR 

e.iijcr 

rPFr.scH 

nsecT 

[  F  F  H  A  I  N| 

fnd 

p  r «  st 


svsnirr 


entry  iffv4??i 


SAVF 

I1A,12),T 

DS 

OH 

HAL  R 

R  9  *  R  0 

US I NO  #,rr 

H 

F  IRST 

nc 

X'CCCC' 

DC 

CL  B  1  I  FF  SDA20 • 

DC 

X  1  05 16 1966 1 

DC 

X'CCCC 

ns 

OH 

USING  LCT.R12 

L 

R  12,01 Rl) 

LR 

R2.R1 

L 

R6,LCT0ENTY 

SRL 

R6,24 

SLL 

R  6 , 2  A 

SLL 

R  1 3  ,  fl 

SRL 

R  1 3 , 8 

AR 

R  1 3  ,  R6 

ST 

R 1 3 , LCTOENTY 

SR 

R3,R3 

L 

R15.CVTPTR 

USING 

CVTDSECT ,R15 

L 

RIO.CVTMSER 

USING 

BASE ,R  10 

TM 

MSLDGST ,MSLDG6M0 

BZ 

IEFVA221 

DROP 

R  1 0,  R 1  5 

L 

RO , ENOLDGCR 

GETMAIN  R.  *  L  V  =  1  0  ) 

LA 

R  3 , NO ( , R 1 ) 

M  VC 

NO(ENOLflGF,R3)  , FNOLDG 

USING 

FN0LDG,R1 

END 

I  ENOLOGOO,  ENfJLDGOR  )  ,  MF 

nRDP 

Rl 

LTR 

R  1  5 ,  R  1  5 

BNZ 

IEFV4221 

L  NR 

R3.R3 

XCTL 

EP=IEFVLDSP 
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I  FF V422  1  6011  * 

DROP  R  9 


NO  LOG 


SECOND 


IEFV42H 


RJENOSET 


TESTWTP 


«  L  R  R  -y  »  0 
USING  »,R9 

fT  “B7T"Ali&ft.  71V  IFP$b<W.‘) 

jLA  ^8yDlSPLAtt(RH )  HUMP  TO  FTT  FLAG. 

iMVI  0(RB),X'FF< _ REMOTF  SET.  I 

USING  LCT.R12  - - - - - 1 

LTR  R3,R3 
BZ  SECOND 

BP  NOLOG 

I- PR  R1,R3 
DEO  MF= ( E  ,  (  1  )  ) 

EOU  * 

L  RO.ENOLOGCR 

LPR  R1,R3 

FREEMAIN  R,LV=(0) ,  A=  (  1  ) 

OS  OH 

MVC  ICTJCTAD<4> ,4(R2) 

MVC  LCTSCTAD(4),8IR?) 

MVC  LCTPARMl (4) , 1 2  (  R  2  ) 

ST  R2,LCTATLST 

L  R5*LCT TCHAD 

USING  TCB.P.5 
USING  CVTDSECTtRlS 
L  R15.CVTPTR 

TM  CVTDCB,X'20* 

BO  IEFV42H 

XC  TCBT  If)  ( 4  >  *  TCRT 1 0 

EOU  * 

<-  R3,LCTJCTAD 

USING  IEFJCT.R3 

BZ  r^ENDSEt’ ,NCMSTS+JCTJnBFL+JCTABEND+JCTSTPFL 

LA  R3.0MGR2 

USING  I0PARAMS.R3 

01  OMSTA,R JFNOFAL 

DROP  R  3 

EOU  * 

GETMAIN  P,,LV«17<S 
ST  RliLCTSMBAD 
XC  0(I76,R1)  ,0(RI) 

'USING  SCT ,  R2 
t-  R2.LCTSCTAD 
L  RIO, LCTJCTAO 
USING  IEFJCT.R10 
MVC  0(4, R1 ) ,SCTAOSMB 

MV  I  ttroiri  ),SMBID 

EOU  * 

L  R15.CVTPTR 
USING  CVTDSECT, R 15 
TM  CVTDCB,MFT 


DROP  R15 


GOON 

R 1 1  ,LCT JSCB 
WTPPTR 

R  1 1 1  TCBJSCBJR5 ) 
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w  I  p  p  l  u 

il i him 

W  I  I  ••  T  M 


NIIWTP 
WTPOVFK 1 

Rf-AUMHXT 


1 FFV4?R 


L  Rll.WtPCHPTRmil) 

L  A  H]  l.HriiHHYThNl  |  I 

I- TP  Rll.Uli 

11  s  I  Mi  wlPnsF(;r,Hii 

”N/  TPSTwTPI 

FIJI  I  .5 

T  M  S  C  T  S  T  Y  P  F  ,  X  «  £  (11 

('n  IFFV4PR 

(Oil  ■;> 

•-  R  1  s.i.c  ir.Mf.Kfi 

I  is  I  Nil';  I  n  PAR  AM  s  I  R  i 
LA  R  1  .  1.  r  TQMP  AM  (  R  )  \  ) 

LA  R4.7?|«m 

f-'UC  n  (  4 ,  r 4  )  ,LC  l.SMHAn 

I.TR  Rll.PH 

H7  MdWTP 

MVC  1)4  (  1  TR  ,R4  )  ,  WTPSMB 

MV  I  07 ( R4 )  ,  HP XHH 

H  WT  PflVFR  1 

l;OII  » 

MVC  4I4.R4) .SCTADSMH 

F(.)ll  4 

L  RV.LCTSMhAI) 

M  V  I  OMPOP.X'04' 

ST  R4  ,  l.)M PC |. 

MV  1  OMPCM  ,  » (II  1 

f-  Q 1 1 

L  R l P , I PFV47V1 

P  A 1.  R  R  1  4  ,  R  IS 

LTR  R11.R11 

WZ  IFFV42R 


TM  W  T  P  F  L  f"i  S  A  *  W  T  P  I  W  V  K  D 
HZ  IFFV4^R 

MVI  MFXTHYTF (R7) .FULL 
ns  on 


TM  TCKI-LOS,  TCHFA 

HC  1  > I FFV4?S 

TM  .ICTRSW7,  X  '  01  ' 

HZ  IFPV42T 

MI  JCTRSW?, X  '  FF ' 

r|I  LCTOEMTV,|.CTFRRM 

MVC  LCTFRRPR (4)  ,  [FFV4?Cl 
I  F  F  V 4 7  f  FQI)  * 


TM 

SC TS ST  AT.  4 

HIT 

IFFNFXT 

Ml 

.ICTRSWl  .25S-JC  TCKFT 

I FFMFXT 

FOII 

I'.S 

L 

R  IS,  IFFV42V1 

HR 

Rib 

IFFV42S 

ns 

OH 

1. 

«  IS ,  I  FFV4?V4 

HR 

R  IS 

T  F  S  T  W  T  P  ! 

FOll 

TM 

WTPFLC.  SA.WTPIMVKD 

HZ 

HDLIinM 

MVC. 

SC  TCRWTP  U14 ) , WTPCRSMH 

H 

WTPRFTN 
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CONSTANTS  AMD  DSFCTS. 


I'J  l  .5RL41F 
NFXTSMR 
07 
lino 
TTR 

HIGhHYTF 

04 

H  fr  X  OH 

NFXTHYTF 

FULL 

WTPCHPTR 

TCRJSC8 

MFT 


76  0| 

4 

7 

3 

TTRO 

0 

4 

x '  oo  • 

1  3 

X' A1  ' 
X  '  FC  ' 
X  •  H4  ' 
X'20' 


IEFV42VL 

nc 

V(  IFFCJMRAW) 

!  EFV42V3 

nc 

V( IFFYN) 

F  FFV42V4 

nc 

V(  IFFIDIJMP  ) 

ENQLOG 

FNO 

( * , E,06,SYSTI 

enoldgoo 

nc 

CL R 1  SYS  I E F SO 

ENOLDGOR 

nc 

CL6 ' S YSLDG ' 

FNOLOOE 

EOU 

4-EMOLDG 

ns 

OF 

FNQLOGCR 

nc. 

AL  1 ( 255  ) 

nc 

AL.3  1  ENOLDGF  ) 

NO 

EOU 

0 

N255 

ROU 

255 

I6FV42C1 

DC 

C'DSDR  ' 

RJENDFAL 

EOU 

R 

JCTJHRFL 

FQU 

64 

JCTSTPFI. 

eou 

1A 

TCR 

OSECT 

ns 

CL  12 

TCBTID 

ns 

CL4 

ns 

CL  1  3 

TCRFLGS 

ns 

CL5 

TCRFA 

EOU 

X  '  ROi 

iefwtpcr 

LCT 

DSFCT 

IEFALLCT 

LCTRATMM 

ns 

F 

LCTSOOMP 

ns 

F 

LCTRTRN 

ns 

F 

LCTCSCH 

ns 

F 

LCTTMWRK 

ns 

4F 

LCTJORLB 

ns 

F 

lctatlst 

os 

F 

REGSAVE 

ns 

36F 

QMGR  1 

ns 

9F 

0MGR2 

ns 

9F 

I E  FEND 

EDO 

# 

lotjscr 

EOU 

LCT  +  3  AC) 

sct 

DSFCT 
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1  FFASf.TR 

I PFOMPAW 
CVTDSPCT  nSFCT 
c  vr 

I Pp JCT  DSPCT 

I PFAJCTR 
1PPRASFA 
F  NO 


0 


i 


I 


i 

i 
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T1TLF  • ! EFSD165  VMS  INITIATOR  FRROR  MODULE ' 
I  FFS0065  CSECT 


5-O26300 


* 


*  IFFSD065 

*  NO  ATTACH  TERMINATE  INTERFACE 

* 

♦ 

♦STATUS !  CHANGE  LEVEL  OOO 
♦ 

♦FUNCTION:  TO  INTERFACE  WITH  THE  TERMINATE  ROUTINES  WHEN  AN  FRROR 

♦  IN  ALLOCATE  CAUSES  THE  JOB  STEP  TO  BE  NOT  ATTACHED. 

♦ 

♦ENTRY  POINTS:  IFFSD065  FROM  THE  ALLOC A TE/ AT T ACM  MODULF  IEFSD062 
* 

♦INPUT:  REG  1  POINTING  TO  A  PARAMETER  LIST  CONTAINING  POINTERS 

♦  ♦  LCT  ♦ 

♦  ♦  JCT  ♦ 

♦  *$**!$  #*>(<#&** 

♦  ♦  SCT  ♦ 

<r  ***«***♦»*#* 

♦  ♦  T10T1. 1ST  * 

SHU*#*#* 

♦  ♦  0  ♦ 

#  ********$«ifiitc 

♦ 

♦OUTPUT:  REG  1  POINTING  TO  LCT 
♦ 

♦EXTERNAL  ROUTINES:  IEFOMRAW  -  0  MNGR  READ/WRITE  ROUTINE 

♦  I EFW42S0  -  TERM1NATF 

♦ 

♦TABLES  AND  WORK  AREAS:  LCT-TCB 
♦ 

♦EXITS  IEFS0162  -  IF  MORE  STEPS  TO  BE  RUN  CRI 

♦EXITS  IEFS0166  -  IF  END  OF  JOB  CRI 


♦  EXITS  I EFS0162 
♦EXITS  IEFS0166 
♦EXITS  IEFSD168 

* 

♦ERROR  MESSAGES: 


IEFS0166  -  IF  END  OF  JOB 

IEFSD168  -  IF  JOB  IS  TO  BE  SUSPENOED 


♦ATTRIBUTES:  REENTRANT 
♦ 

♦  * 

^^^♦♦♦^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 
♦  ♦ 

EJECT 

BALR  12,0 
USING  ♦, 12 
USING  IEFL0T,R11 

^^^^^^^^^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦ 

♦  THE  FOLLOWING  CODE  SERVES  ONLY  TO  MAKF  THIS  MODULE  EASIER  ♦ 

♦  TO  IDENTIFY  IN  A  DUMP  LISTING.  ♦ 


00020000 
00040000 
0006001 7 
00060000 
00080000 
00100000 
00120000 
00140000 
00160000 
00180000 
00200000 
00220000 
00240000 
00260000 
00280000 
00300000 
00320000 
00340000 
00360000 
00380000 
00400000 
00420000 
00440000 
00460000 
00480000 
00500000 
00520000 
00540000 
00560000 
00580000 
00600000 
00620000 
00640000 
00660000 
00680000 
00700000 
00720000 
00740000 
00750017 
00760017 
00770017 
OOROOOOO 
00820000 
00840000 
00860000 
0O8RO000 
00900000 
00920000 
00940000 
00960000 
00980000 
0)000000 
01020000 
01040000 
01060000 
01080000 
01100000 


-68- 


8 

F  IRST 

i\r 
•  'V. 

X  -  cc cc  • 

DC 

C • IFFSD165 

DC 

X '05031966 

DC 

X  'CCCC  ' 

FIRST 

DS 

OH 

4444444*144444**44444444444444444444444444444444*44444444444444444444444 
*  SETUP  TO  BUILD  DUMMY  TCP  TO  SATISFY  REQUIREMENTS  TO  ENTER  4 


*  TERMINATE.  4 

444444444*444444444444444444444444444444444444*444444444444444444444444 


LR 

R  3 « R  1 

SAVE  POINTER  TO  PARAMETER  LIST 

BUILT  BY  SD062 

4 

L 

R  1 1  *  0  (  R  3  ) 

LOAD  LCf  BASF 

241 

SR 

R  1 1 R  1 

CLEAR  REG 

241 

1C 

R  1  tLCTODRTY 

GET  JOB  PRIORITY 

241 

LA 

R0,15 

PUT  15  IN  REG 

241 

SR 

R0,R1 

GET  15-PRTY 

241 

CHAP 

(01 

CHAP  INIT  UP  TO  UNSHADFD  PR  TY 

241 

LA 

Rl.TCDRE 

SUBPDOL 

1272 

SLL 

R 1,024 

SUBPDDL  IN  HIGH-ORDER  BYTE 

1272 

LA 

RO.TCHLEN 

LENGTH  OF  TCB 

1272 

OR 

RO,R  1 

SUBPOOL  IN  HIGH-ORDER  BYTE 

1272 

GETMAIN  R,LV=(0) 

GET  CORE  FOR  DUMMY  TCB 

1272 

XC 

ZERD(TCHLEN,R1) .ZERDIR1 )  ZERO  DUMMY  TCH 

M4340 

ST 

R  1  jLCTTCBAD 

STORE  POINTER  TO  DUMMY  TCB 

IN 

LCT 

4 

TCHTCT 

EQU 

164 

SMF  1 

L 

R4.LCT0DRTY 

PT  TO  CSCB 

SMF  1 

USING 

IEFCSCB.R4 

SMF  1 

L 

R4.CHSWT 

NOW  PT  TO  TCB 

SMF  1 

MVC 

TCBJSCB+D1 ( D3, 

R 1 1 1  LCT  JSCB+Dl  ADOR  JSCB  TO  TERM 

M4340 

DROP 

”4 

MVC 

TCBTCTI4.R1J  ,TCBTCT(R4)  COPY  TCT  PTR  TO  FAKE  TCB 

SMF  1 

444444444444444444444444444444444444444444*4444444444444444*44444444444 

>JC 

SETUP 

TO  GETCORE  FOR 

REGSAVF  AREA  AND  BRANCH  TD  TERMINATE 

AFTER 

RESTORING  REG 

1  TO  POINT  TO  PARAMETER  LIST  BUILT  BY 

* 

£ 

SD062 

• 

44444444444444444444444444444444444444444444444444444444*44444444444444 

LR 

R6,R  1 

SAVE  ADDR  DUMMY  TCB 

M4340 

USING 

IEFSCT.R5 

CR17 

USING 

IEFCSCB.R7 

CR 1 7 

USING 

IOPARAMS.RIO 

CR17 

L 

R5.LCTSCTAD 

SCT  BASE. 

CR17 

L 

R7,LCT0DRTY 

CSCB  BASE. 

CR  1 7 

LA 

R 1 0 » OMGR 1 

OMPA  BASE. 

CR.7 

SD65005 

EOU 

* 

GETMAIN  R,LV=72tSP= 

TCORE 

LR 

R13,R1 

LR 

R  1  »R3 

RESTORE  PAR  AM  LIST  POINTER 

L 

R 1 5 , SD42 VCON 

ADDRESS  OF  TERMINATE 

PALR 

R14.R15 

GO  TO  TERMINATE 

44444444444444444444444444444444444444444444444444444444444444444444444 

*  UPON  RETURN  FROM  TERMINATE-  SETUP  TO  FREECORE  FOR  THE  DUMMY  * 

*  TCB.  TERMINATE  RETURNS  A  CODE  IN  REGISTER  15  TO  DENOTE  IF  JOB* 

*  TERMINATE  WAS  ENTERED  OR  NOT.  0=  NOT  ENTERED-  4=  ENTERED  * 

444444444444444444444444444444tt444444444444444444444444444444444444444* 


01 120000 
01140000 
01 160000 
01 180000 
01200000 
01220000 
01240000 
01260000 
01280000 
01300000 
01320000 
01340000 
01360000 
01362018 
01364018 
01366018 
01368018 
01370018 
01372018 
01376019 
013B0019 
01384019 
01388019 
01392019 
01422019 
01460000 
01480000 
01482018 
01484018 
01486018 
01488018 
01489019 
01490018 
01492018 
01500000 
01520000 
01540000 
01560000 
01580000 
01590019 
01610017 
01620017 
01630017 
01640017 
01650017 
01660017 
02640000 
02660000 
02680000 
02700000 
02720000 
02740000 
02760000 
02780000 
02800000 
02820000 
02840000 
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S06S020 


L  R  R7.R16 

IR  R1,K3 

FRFFMAIN  R,LV=74,A= 


savf  return  r.fn'4 
AIUIRFSS  HP  PAMAMplFK  LIST 
,  sp  =  t  r  i  ip  *- 


SLL  Rl,0?4 
LA  RO.TCBLFN 

ne  R0.K1 

LR  R1,R6 

PR  PR  MAIM  R,LV  =  (0> ,4=1  1  ) 
I-  R  R  l ,  W  1  ? 

FRRFMAIM  R ,|_V  =  7?  ,  A= (  1  )  ,  K 
LA  Rl6,4 

CR  R  7  ,  R  1  6 

BNF  SD6S776 


L  Hl.LCTJSCO 

ns  r m n  i f 7 j sc r * r  l 
L  RltJSCRwTP 
CROP  R 1 

LA  R  1 , 7  FHH ( H  X ) 
USING  WTPC  H  »R 1 


SMhPDI'lL  IM  H]  GH-fIRilf-R  HYTp 
L  F  NOT  ll  MF  TC.R 

■  i  ii-ihi  'ml  IM  H]r;H  — itwnFw  hyTf 
MRSIiiRF  AMUR  DUMMY  K.h 
)  PR  F  F  DUMMY  TCP 

RPSmIHF  RHI  NT  PR  Til  RPG 

sp  =  i c  up p 


IS  THIS 


f  l-RM  1  MAT  I  TIN 


Y  F  S  *  JIIW  r  F  R M  I  M A  T  I  n M 
A  DOR  FXPf.  PGM  JSCR 
JSr.R  A  OUR  F  S  SAP  I  L  1  T  Y 
AOI7R  WTPCh 


SI166276 


XC 

DROP 

LR 

l 

RR 

FOU 

L 

USING 

L 

DROP 

LA 


WTPSMR ( WTPCRSI 7  ) .NTPSMP 
R  l 

R  1 » R  1 1 

R  1  5 . SD66 VCON 
R  16 


CLFAR  H|GH-flP.I)FR  HYTF 
WTPCB  ADDR  F  SSA6  I  I.  IT  V 
SMH  7  F K fl  WTPO.F 


I  FPSI1]  A  A 


Rl.LCTJSCft 
IFMSCB.Rl 
R 1, JSCHNTP 
R  1 

R 1 1  Z  FRO  I  R  l  ) 


AMUR  FXPC  pom  jsCh 
JSC  6  AODR  FSSAB I L I TY 
A  DDR  FXFC  PGM  WTPCH 


USING  WTPCH. R1 


WTPSMK, WTPSMR  7 

WTPFLGSAfWTPCI.FAN  T 
WTPHYTFS(fTS) .WTPHYTES 
R  1 

R  1  .RFGSAVF+7? 

R5  1 0 ( 0, R 1 | 

4(4, R1 ) ,SCTANSCT 
R1  tOMPCI. 

DM  POP ,4 
QMPCL  .1 
R13.REGSAVE 
R 1 5  *  OMVCPM 
RltRIO 
R14,R  16 
SD66020  (  R  1  6  I 
S066030 
0,5066020 
0, S065020 


CLFAR  HI GH-flRUPK  RYTF 
WTPCH  A0I7R  FSSAP  ILITY 
7  FR D  WTPSMR  SLUT 
TURN  OFF  ALL  STFP  FLAGS 
S  7  FRfl  ?  WORDS  IM  WTPCH 


I  7  7Y 
1  ?  7? 

I  ?r> 

1277 

M  4  3411 

I  7  7  2 
-  AW  FA 

CK  17 
CR  1  7 
CR  1  7 
M4340 
M4340 
M4340 
M4340 
M  4  340 
M4340 
M4340 
M4340 
M4340 
CP  1  7 
CR  1  7 
CK  17 
C  R  1  7 
M4340 
M4340 
M4340 
M4340 
M4340 
M4340 
M  4  3  4  0 
M4340 
M  4  3  4  0 
M4340 
CR  1  7 


a***#*!####****##*!***#*!#*"**#*# 

LA  R 1 , X 1 ORO ' 

SLL  R 1 »  12 

ABEND  ( 1 ) , DUMP 


YFS.OMGR  RFMOTF  A  R  F  A  ,  CR  1  7 

SCT  CORF  AOORFSS  TO  RFMOTF  A  R  F  A 

SC T  TTR  TO  R F Ml  f  F  ARFA 

RFMllTF  AR F A  T (J  OMPAM 

I M 0 1 C  A T  F  R  F  AO  OPFR AT  I  ON 

INDICATE  1  OPFR AT  I  ON 

REGISTER  SAVE  AREA 

ADDRESS  OF  0  MGR 

AnDRESS  OF  PARM  AR  F  A 

GD  TO  READ  IM  SCT 

CHECK  RETURN  C.I1DF 

RETURN  CDDF  OK 

MO  WORK,  IMPDSSIHLF  IIM  R F A [) 

Mn  SPACE,  I  M  P  n  S  S  1 13  L  F  ON  RFAD 

I/O  FRRflR 

CODE  TD  PROCESS  THIS  CONDITION 
SHOULD  HF  PLACED  HERE 
TEMPORARILY.  ABEND 


1 1?  h  uivr,<)'  i 
(ipunnoiwi 

U^Cli  i4»(I  j  v) 

M  ?<*(}»<  {I  ]  14 

t\  ?  w  \  ?  n  )  h 

0'SLi  1  (\()  |  *-J 

t)?U?hO  1  u 

(i?<j£*a  n  1  ^ 

(V'jMinnn 

n^vHnnno 

DHonnni y 

030200 ] 7 

030400 1 7 

0  3047  0  1  9 

030440 1 9 

030460 1 9 

0  30460  1  9 

030600 1 9 

03062019 

0306401 9 

030660 1 9 

0  30  6  6  0  1  9 

030600 1 7 

030600 1 7 

0310001 7 

031 200] 7 

03121019 

03127019 

031 2301 9 

031 24019 

03126019 

03126019 

03177019 

0  3  1  7  B  0  1  9 

031790)9 

03130019 

0314001 7 

0  37401700 

03760000 

03260000 

03300000 

03370000 

03340000 

03360000 

03360000 

03400000 

03420000 

03440000 

03460000 

03460000 

03600000 

03620000 

03640000 

03660000 

03660000 

0 3600000 


70 


S065030 

EQU 

* 

03620000 

IC 

Rl.LCTSNUMB 

UPDATE 

03640000 

LA 

R 1  * l ( 0«R  l ) 

STEP 

03660000 

STC 

8 1  *  LCTSNUMB 

NUMRFR  IN  ITT 

0  3  6  f»  C  C>  0  0 

03700000 

* 

* 

03720000 

*  LCTPARMl  is 

TESTEO  IN  I FFS0102 

FOR  DATA  SET  ENQIIFUF I  NO,  AND  MUST  BC  * 

03740000 

*  SET  TO 

ZERO 

ME EURE  EXITING  IEFS0165  TO  IEFS0101. 

* 

03760000 

« 

03780000 

XC 

LCTPARMl, LCTPARMl 

03800000 

* 

* 

03820000 

tf*#**##****#^####^***#****#***#*#***#*#****##**************^' #*#**#** 

03840000 

L 

R 1 5  *  S062 VCON 

GET  AOORESS  OF  IEFS0062. 

LA 

R15,D1$PLACE(R15> 

RUMP  IT  TO  FTT  FLAG. 

MV  I 

0 1 R  1 5  I  •  X  '  F  F  _' 

SET  THE  FLAG, 

LR 

R  l ,  R  1 1 

LCT  AOORESS  TO  Rl 

03860000 

L 

R  1 8 » S0A2 VCON 

03880000 

8R 

R  15 

BRANCH  TO  S0062  TO  ALLOCATE  FOR 

03900000 

« 

ANO  ATTACH  ANOTHER  JOB  STEP  * 

03920000 

S06RVC0N 

DC 

V( IEFS0068) 

CR  1 7 

03926017 

EJECT 

03932017 

S066VC0N 

OC 

VI I FFS0066 I 

03940000 

S 06? VC ON 

nc 

VI IEFS0062) 

03960000 

OMVCON 

OC 

VI IEFQMRAW) 

03980000 

S042VC0N 

OC 

VI IEFW42S0I 

04000000 

fo  IS  PL  ACE 

EQIJ 

760l 

TCORE 

FQU 

253 

04020000 

TIOTPTR 

FOU 

12 

DISPLACEMENT  OF  TIOT 

PTR  in  TCB 

04040000 

TCBFLGS 

EQU 

29 

CR  1 7 

04050017 

TCBLEN 

FQIJ 

184 

LENGTH  OF  TCB 

1272 

04052019 

TCBJSCB 

ECU 

180 

JSCR  DISPLACEMENT  IN  TCB 

1254 

04054019 

ZERO 

EQU 

0 

DISPLACEMENT 

M4340 

04054519 

D1 

EOtJ 

l 

01 SPLACEMENT 

M4340 

04055019 

03 

EQU 

3 

DISPLACEMENT 

M4340 

04055519 

04 

EQU 

4 

DISPLACEMENT 

1254 

04056019 

08 

EQU 

8 

DISPLACEMENT 

M4340 

04057019 

024 

EQU 

24 

DISPLACEMENT 

1272 

04058019 

*******************************  *********  ******  *******41#*  a*******###**##  04060000 
*  REGISTER  EQUATE  STATEMENTS  *  04080000 
***********************************************************************  04100000 


RO 

EQU 

0 

04120000 

Rl 

EQU 

1 

04140000 

R2 

EQU 

2 

04160000 

R  3 

EQU 

3 

04180000 

R4 

EQU 

4 

04200000 

R  5 

EQU 

5 

04220000 

R6 

EQU 

6 

04240000 

R  7 

EQU 

7 

04260000 

R8 

EQU 

8 

04280000 

R9 

FOU 

9 

04300000 

RIO 

EQU 

10 

04320000 

RH 

EQU 

11 

04340000 

R 12 

EQU 

12 

04360000 

R13 

EQU 

13 

04380000 

R14 

EQU 

14 

04400000 

R  15 

EQU 

15 

04420000 

EJECT 

04430017 
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I EFCSCB 


DSECT 
I EECHA I N 
EJECT 
DSECT 


DSORG=PO,MACRF=E 
F  '  0 ' 

4 


DCB  EXIT  LIST 


I  HA. DCB 

DCRSTART  EQU 
DCB 

IEFXLIST  DC 
DCBEND  EOIJ 

EJECT 
IEFSCT  DSECT 
I EFASCTB 

EJECT 
I EFQMNGR 

OMOSC  EOIJ  QMTID+2  CR17 

IEFLDT  DSECT 

44444*4**4444444444  **  444*4444*4*444*44444444*444*4*4444*4  444444444  44444 


THE  FOLLOWING  REPRESENTS  A  BLOCK  OF  MAIN  STORAGE  WHICH  IS 
ALLOCATED  FOR  THE  LIFE  OF 
OF  THIS  INITIATOR.  IT  CONTAINS* 

(1)  THE  LCT  (LINKAGE  CONTROL  TABLE) 

(2)  A  2  LEVEL  REGISTER  SAVE  AREA  FOLLOWED  BY  THE 
THE  OUEUE  MANAGER  PARAMETER  AREA 

!  3 )  AN  ALTERNATE  QUEUE  MANAGER  PARAMETER  AREA 


4*44*444444444444444444*44**4444444444****4********4*44***44***444**444 


I EFALLCT 


LCTBATMN 

OS 

F 

44444T0  BE  ADDED  TO  LCT 

LCTSOQMP 

4 

DS 

F 

44444T0  BE  ADDED  TO  LCT(VMS  ONLY)  POINTER  TO 
SYSOUT  QUEUE  MANAGER  PARAMETER  ARFA 

LCTRTRN 

* 

OS 

F 

4*4*410  BE  ADDED  TO  CCTIVMS  ONLY)  INITIATORS 
RETURN  POINT 

LCTCSCB 

* 

OS 

F 

44444T0  BE  ADDED  TO  LCT(VM$  ONLY)  INITIATOR  CSCB 
ADDRESS 

LCTTMWRK 

DS 

4F 

44444T0  BE  ADDED  TO  LCT(VMS  ONLY)  TIMER  WORK 

AREA 

LCTJOBLB 

DS 

F 

44444T0  BE  ADDED  TO  LCT(VMS  ONLY)  JDBL1B  OCR 

PTR 

LCTATLST 

4 

DS 

F 

44444T0  BE  ADDED  TO  LCT(VMS  ONLY)  POINTER  TO 
ALLOCATE/TERMINATE  PARAMETER  LISTS 

REGSAVE 

DS 

36F 

ALLOCATE/TERMINATE  REGSAVE  AREA 

0MGR1 

DS 

9F 

QUEUE  MANAGER  PARAMETER 

AREA 

QMGR2 

DS 

9F 

ALTERNATE  QUEUE  MANAGER 

AREA 

DS 

8F 

TO  CORRECT  DISPLACEMENT 

M4340 

4  THESE  FIELDS  ARE  NEEDED  FOR  L-SHAPE/INIT  MERGE 

DS  OF 

*  1272 

1272 

LCT0PSW1 

DS 

OC 

INITIATOR  OPTIONS  BYTE  1 

1272 

LCTPKEYF 

EOIJ 

12B 

DONT  GET  PROTECT  KEY 

1272 

LCTDWFF 

EOU 

64 

OONT  PROCESS  DEDICATED  WORKF 

1272 

LCTSTMDF 

EQU 

32 

DONT  PROCESS  STOP/MODIFY 

1272 

LCTMINPF 

EQU 

16 

GET  REGION  SIZE  SPECIFIED 

1272 

LCTCANF 

EQU 

8 

ALLOW  CANCEL  ONLY  AT  ALLOC 

1272 

LCTONEJF 

EQU 

4 

PROCESS  ONLY  ONE  JOB 

1272 

LCTICMDF 

EOU 

2 

DONT  PROCESS  INITIATOR  CMOS 

1272 

LCTEXIT 

DS 

F 

ADDRESS  INITIATOR  EXIT  LIST 

1272 

LCT0PSW2 

DS 

OC 

INITIATOR  OPTIONS  BYTE  2 

1272 

LCTTIMEF 

EQU 

128 

DONT  TIME  THIS  JOB 

1272 

LCTCRF 

EQU 

64 

DONT  ALLOW  CHECKPT/RESTART 

1272 

04440000 

04460000 

04470017 

044ROOOO 

04500000 

04520000 

04540000 

04560000 

045P0000 

04600000 

04620000 

04630017 

04640000 

04650017 

04660000 

04680000 

04700000 

04720000 

04740000 

04760000 

04780000 

04800000 

04820000 

04840000 

04860000 

04880000 

04900000 

04920000 

04940000 

04960000 

04980000 

05000000 

05020000 

05040000 

05060000 

05080000 

05100000 

05120000 

05140000 

05160000 

05180000 

05200000 

05201019 

05202019 

05203019 

05204019 

05205019 

05206019 

05207019 

05208019 

05209019 

05210019 

05211019 

05212019 

05213019 

05214019 

05215019 


-72- 


i  c  t  i  j  s  1 1  r 

FMII  3? 

nriMT  p h nc f s s  nsn 

I?7? 

ns?iisni9 

i  crr.nM 

US  F 

cnMHiiMicftT i riMs  parn  arfa 

FTP 

127? 

ns?] 7019 

i  r  r  ur  j 

r  ■  c  r 

A  ! i Hr  r  %  %  Or  , } $ 0  ^  r  < ”ik  iv r  w 

r  /» ;s  n 

]  /  *1  «♦ 

[)*>/  1  HIM  S 

1  F  FfNIl 

hmi  x 

FMD  OF  1.  I  FF-Or-TASK 

pluck 

ns??onon 

IF/.  ISCK 

05??Gni  p 

P  '!■<>] !( 

r  nil  .ISC.I'PTP-!F7JS(> 

1 '  I  S  f*  L  «  C  F  M  F  M  T  fl  F  w  T  p  P  T  K 

1  7S4 

ns?  -s?oi9 

I  F  FWT  Fl.H 

M4340 

f)S?  340  19 

W  TPf'.t  f  A  Ni 

Ff.m  x  »*r.  • 

M4340 

0S?3fini9 

F  J  F  C  ] 

ns?4fjnnn 

FNH 

ns?snnnn 

*  ft 
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TJTLF  •  1 E  F  S  D 1 6  2  VMS  INITIATOR  STEP  PRtiCFSSnR' 

IEFCVT  HSFCT 
F.VT 
FJFCT 
IFFSD06?  CSECT 

“  7iT57T 6’-6s§?>3(), 05*5  700. 055R05. 059*00,063 1  in, ob?750  a  2  98 71 

■"  M31F.Fi 

>:<  066390-066550  A2  7679 

4  069800-070200,070800  M2434 

entry  IFFSD62A  CR  1 7 

4  089000-060600,063260-063740,083000-083200,086200  A  168  3 1 

<'2066043971  PTM663 

40059  1404 

4  1 78 5043 669, 04 3 68 7, 06 82 00, 0684 00, 069600, 0708 00, 08 3 8 00  18  428 

«0642  MTSO 

«01 1400,044400-045400,048800,081 190, 06 3800, 066600, 0726 30, 074M0O-  1272 

4076800,08100-081600 ,084000,085660-088720,090800-091000  1272 

40 1  6400, 0 1  7600, 02  7 200-029 600, 0296  10-0296 30 ,02 9800-0302 008  03  1.000  1272 

4036500,043414-043697,043633-043642 ,080400, 099200-099400  127? 

4029R00803 11 20,03 1200-03 1405. 031420, 031 420, 03 1490-03 1800  1199 

4  030890-030917,030935-031023,031802  M4012 

42229056500-056700  17464 

42842  PTM17052 

4  M4137 

4  031293-031294  M3164 

4  M  4  3  7  3 

4  030926-031261  M2945 

*************  V  4  *************  4  *  4  *  4  *****  4  4  4  4  *  4  *  4  *  4  *  4  *********  4  4  *  *  *  4  4  *  4  4  *  * 


4  4 

4  VMS  ALLOCATE  ENTRANCF/ATTACH  INTERFACF  MODULE  4 

4  4 

4*444444444444444444444444444444444444444444444444444444444444444444444 
4  4 

4  STATUS-  changf  levfl  -  0  4 

4  FUNCTION!  1.  COMPLETE  ENTRANCE  INTERFACE  FOR  ALLOCATE  4 

4  1A. ENTRANCE  INTERFACE  FOR  T I  (IT  WRITE  (IEFSD814)  RnilTIN  CR17 

4  18, UPDATE  THE  CSCH  -  SCAN  THE  SIOT  FOR  I EFRUFK  IE  TASK  1272 

4  NAME  IS  'STARTING'  -  SCAN  THE  TINT  ON  kE  T  URN  1272 

FROM  ALLOCATION  FOR  IFFRDFR. 

2.  DETERMINE  I  BY  ALLOCATE  EXIT  PARAMETER)  WHETHFR  OR  NOT  4 

4  STEP  SHOULD  HE  ATTACHED.  IE  SO, BUILD  AN  ATTACH  4 

4  PARAMETER  LIST  FOR  ATTACH.  IE  NOT,  PASS  THE  ALLOCATE  4 

4  EXIT  PARAMETER  LIST  TO  IFFSD165  4 

4  3.  IF  OPEN  JOHLIEI  OR  OPEN  FETCH  DATASET  FAILS,  ATTACH  4 

4  I EESDOXX  INSTEAD  OF  THE  USERS  JOB  STEP.  THIS  WILL  * 

4  FAIL  ON  THE  OPEN  AGAIN  AMD  ABEND  THE  JOB  STEP.  4 

4  4.  CONDITIONALLY  LINK  TO  IEFDSOWR  TO  WRITF  JOB  099 

4  SEPARATORS  AND/OR  SYSTEM  MESSAGES  (SMB'S)  099 

4  FOR  DIRECT  SYSOUT  DATA  SETS.  099 

4  * 

4  ENTRY  POINT:  IEFS0162  FROM  IEFSD161,  I6ESD164,  AND  IFFSD165.  4 

4  I EFSD62A  FROM  IEFSD164  FOR  IMMEDIATE  RESTART  CR17 

4  * 

4  INPUT:  1.  LCT  POINTED  Tn  BY  REGISTER  ONE  4 

4  2.  LPMOD  VALUE  IN  1ST  BYTE  OF  LCTODRTY  4 

4  3.  IF  THE  FNTRY  IS  TO  I E F S062 A , REG  I S TE R  1  POINTS  TO  TH  CR17 

4  PARAMETER  LIST  THAT  CONTAINS-  CR17 


nononnno 

00040(100 
I  MMIhUOIIO 
000  700!  7 
0(1080(100 
(KIOMO  )  19 
000802  I  9 
000806  1  9 
0008  1 O  1  8 
00082017 
000830  18 
000850  I  6 
000900  1  4 
000920  1  7 
000950  1  6 
00098319 
(100986  1  9 
000989 1 9 
000962  19 
00096519 
00096719 
0009701 7 
000980  1  7 
000990  |  8 
000992  1  9 
000995  1  9 
00099719 
00100000 
00120000 
00140000 
00160000 
0018000(1 
00200000 
00220000 
00240000 
00250017 
00252019 
00254019 
0025601 9 
00260000 
00230000 
00300000 
00320000 
00340000 
00360000 
00380000 
00385019 
00390019 
00395019 
00400000 
00420(i00 
00430017 
00440000 
00460000 
00480000 
00481017 
00482017 


74- 


2. 


* 

# 

* 

* 

#  niJTPiiT: 

# 
x< 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

❖ 

* 

# 

* 

# 

* 

* 

* 

* 

# 

# 

*  EXTERNAL  ROUTINES* 

* 

* 

*  eXITS-  1FFSP163 

*  1EPSD165 

*  I 

* 

# 

* 


*  Xo|‘  £  v  »,*  #  $  #  #  # 

*  LCT  # 

ft*########*** 

*  JCT  * 

*  #  *  #  #  *  *  ^  *  jf«  #  #  * 

*  SCT  * 

#**##$*##¥#** 

*  T I  (IT  LIST  * 
###**#*###**# 


CRI7 
C  R  1  7 

r  n  i  t 

CR17 
CR  1  7 
CR  l  7 
CR  I  7 
C  R  1  7 
CR  1 7 
* 

1.  IF  ALLOCATE  EXIT  PARAMETFR  INDICATES  BYPASS  ATTACH  *  * 

R1  POINTS  TO***#***********###***#*##*##*###*##'*###*#  ### 

*  LCT  POINTER  # 

####  ifc  $#######>{<  ijt  # 

*  JCT  POINTER  * 

*  SCT  POINTER  * 

*  TIOTLIST  POINTER  * 

#*>!M{ci;iiti$>)i*>ic*i**ti)(i(t>*#>lc>)ci(c» 

*  7ERD  * 

***#%  Of*#*  &>**&*****#** 

IF  ALLOCATE  EXIT  PARAMETER  INDICATES  ATTACH,  # 

Rl  POINTS 

*  USER  PARAMS  POINTER  * 

Of  Of  Of  fc  1*  Of  tf  lit  Of  o,  #  *  Of  £  $  $  >)C  *  *  I*  Jtf *  * $  *  ijc  .,*  #  #  (c  if  *c  >:<  * 

*  ECB  LIST  ADDRESS  # 

#ijl>i<),,<>Jc>'t*$>*>J:#*:))i>|ll(t>!1#i*fcl(i$i*)|.>l.<<i<«>jt#fc!Sli{,ij<i<£fc 

K  SUPERVISOR  LIST  ADDRESS  * 

*  lie##  1(11(1  lit  ###xt  a#**  *  *  ift  ##  #>*  Of  Of  a***#  5jc  #  #  >»  # 

*  LCT  ADDRESS  * 

>j<>i(>tifci<«ij<Mtf$$  #$»!#>* 

*  INITIATOR  TCP  ADDRESS  * 

*  TINT  ADDRESS  * 


*  DCB  ADDRESS 

OfOfOfOfOfOfOfOfOftoOfOfOfOfOffftfOfOfOfOfOUfOfOftfOf 

I EFW21S0, 1 EFOMRAW, I  EPS 05 1 4 
I EFDSOWR 

(ATTACH  JOB  STEP) 

(DO  NOT  ATTACH  JOB  STEP) 


1270 
1270 
CR  1 7 
099 
* 


*  ATTRIBUTES-  R 

* 

$>*$)!<  ##*#>!<£$>!<#  )!<)!*>![ 


Of 

099 
# 

1272 
* 
* 


EFSD161  (JOB  SELECT ) 

TABLES/WORK  AREAS  LC T , JC T , SCT ,C SCB , S I OT , T I OT , GWT 
FAD  ONLY  AND  REENTRANT 


RO 

EJECT 

FDII 

0 

Rl 

EOII 

1 

R2 

EQU 

2 

R  3 

EOII 

3 

K  4 

Foil 

4 

R5 

FOI) 

5 

004R301 7 
00484017 
0048301 / 
0048601 7 
00487017 
00488017 
0048901 7 
00490017 
00491017 
00600000 
00520000 
00540000 
00560000 
00580000 
00600000 
00620000 
00640000 
00660000 
00680000 
00700000 
00720000 
00740000 
00760000 
00780000 
00800000 
00820000 
00840000 
00860000 
00880000 
00900000 
00920000 
00940000 
00960000 
00980000 
01000000 
01020000 
01026019 
010320)9 
01040017 
01050019 
0106000.0 
01080000 
01100000 
01110019 
01120000 
01140019 
01160000 
01180000 
01200000 
01220000 
01240000 
01260000 
01280000 
01300000 
01320000 
01340000 
01360000 


*  ■* 


EOIJ  6 

eon  7 

ROD  R 
ROD  9 
ROD  10 

eou  li 

FOU  12 
ROD  13 
FOU  14 
EOD  15 
EJECT 

RALR  R  1 2  *  0 
USING  I E  EPARAM , R  1 1 
USING  IDPAR AMS  * R9 
USING  I EFLOT ,RR 
USING  I  ERJCT  f  R7 
USING  1EFSCT.R6 
USING  I E  FCSC  B  *  R  5 
USING  >!■ ,  R  1 2 


I EFSD62 A  RALR 
LA 
SR 
L 
L 
L 

LR 

LA 

L 

USING 

L 

DROP 


FIRST 
R 1  2  » 0 

Rll,  I E F S0R2 A- 1 F F  S0062 
R 1 2  t  R  1 1 


RHfOIRl ) 

R7.4IR1 ) 

R6,fl (R1 ) 

R2.R1 
R9 i OMGR 1 

R1»CVTPTR  P 

I  EFCVT  »R 1 

Rl.CVTTCBP  P 

R 1 

R 1  *  X4 [ R  1  )  A 

R 1 1 LCTTCRAD  S 

R3  tTCBJSCR ( R 1 )  A 

RO  *  LCT  JSCB  A 

R3  »LCT  JSCB  P 

ROt  TCR JSCR ( R 1 )  F 

LCTPARM4(4) .LCTPARM4 
SD062030 


INITIALIZE  BASF  REG. 12 
LCT  -  RASE  REG. 

JCT  -  RASE  REG. 

SC T  -  RASE  REG. 

PARAM  LIST  AO[)R.(  APL'  ) 
ADOR  OF  QMPA 
POINTER  TO  CVT 


POINTER  TO  MEW/OLD  TCR 


AODRESS  OF  CURRENT  TCR  127.2 
ST  Rl, LCTTCRAD  STORE  TCR  ADDRESS  IN  LCT  1272 
L  R3  tTCBJSCB ( R 1 )  ADDRFSS  DF  I  NIT  JSCR  1272 
L  RO  *  LCT  JSCB  ADDRESS  OF  JOB  STEP  JSCR  1272 
ST  R3.LCTJSCB  PUT  JOB  STEP  JSCR  IN  I M I T  TCB  1272 
ST  ROt TCR JSCR ( R 1 )  FOR  REFERENCE  BY  OPEN  1272 
XC  LCTPARM4(4)  .LCTPARM4  7.FR0  OUT  LCTPARM4  FOR  REG  I  CR17 
R  SD062030  CR17 
EJECT 


SECTION  OF  CODE  IS  FOR  PROVIDING  A  METHOD  OF  IDENTIFYING 
THIS  MODULE  IN  A  MEMORY  DUMP 


X'CCCC' 

C'  1EFS0162' 
X ' 05031 966 ' 
X'CCCC' 

OH 


EYE-CATCHER 


DC  X'CCCC'  FYE-CATCHER 

FIRST  DS  OH 

*  * 

$  #  £  lit  #  #  m#  #  »  #  *  #  »t  #  #  >Cc  *  *  *  *  #  #  #  #  ik  $  $  #  #  $»t  >)c  #  if  #  a*  #  $  j)t  &  <c  *  *  #  *  %  $ >Jt  #  #  #  *  *  *  £  if  if  *  >(c  >jt  <1  >*  :|t  ^  j)t  $ 

EJECT 

$  # 

*  THE  FOLLOWING  SECTION  OF  CODE  BRANCHES  TO  THE  ALLOCATE  SUBROUTINE  * 


013ROODO 
01400000 
01420000 
01440000 
01460000 
01480000 
01500000 
01520000 
01540000 
01560000 
01580000 
01600000 
01620000 
01660000 
01680000 
01700000 
01720000 
01740000 
01780000 
01781017 
01782017 
01783017 
01784017 
01785017 
01786017 
01787017 
0  17872  19 
01787419 
01787619 
01787819 
01788019 
01788219 
0178B419 
017HR619 
017RR819 
01789019 
01789219 
01789419 
01790017 
01791017 
01800000 
0 1 R20000 
01840000 
01860000 
01880000 
01900000 
01940000 
01960000 
01980000 
02000000 
02020000 
02040000 
02060000 
02080000 
02100000 
02120000 
02140000 


AN"."^n.M  ALLOCATES  RPTiIRM,  CH^CkS  ft  R  F  TORN  Cnnr  (M  ,  F  „  ,  „ 

/  HR  (!  ,  PROOF  SS  I  All-1  f.IlMT  I  NUF  S  MI'lR  Mft  I  I  V  It  Die  II  V  *  ^  ^  ^ 

attach  MMnnL(.  ,IFFs„nM  S  !l  ^  "  *1S  IS  ""T  7"wn’  THF 

linking  rn  iffiKih.u  .c  a, '-,1 


>:«  <t  >:«  »:t  *;c  >>  #  >:«  i;t  a:«  * # j;t #  g  *  ,;c  g  ,;c  y ...  ^ 

!  W  Q  ,  ft  l 

L  R  A  •  LCTSD  T  An 

L  «7,I.CT.ICTAr) 

I.  A  ft  9,  DMITRI 

L  R  3  *  UMCAP 

SR  R5,R5 

re  r  5 ,  n  I  r  3 ) 

L  T  R  R  6  ,  R  6 

HC  8,tFFS0O?2 

f’E  TMA  IN  R  *  L  V  =  72 
LR  ft  13, RI 

LA  «1,0MGR1 

I  H  15,  IFFSDSTI 

PALR  <U4,R16 


1FFSDD22  FOH 
L 


RS.LCTODRTV 
CHSWT , ChSYS 
I FFsongft 


*  4 * 4 *  v *  *  *  *  »  *  *  *  #  w  *  *  *  v  v, i:< 

ADD’  ESS  IIP  I.CT 

AllOk  rip  SOT.  CRI7 

JCT  AODRF.SS  FR()fi  |_CT 

l_  I )  A  T  •  AT)  l)R  flh  OMfift  PAKAM  ARFA 
FTP  Til  TRK  STACK  INFO 

l.flAI)  Nf).  OF  BUFFERS  FM  STACK 
!F  FT  IS  ZFRfl, 

BRANCH  AROUND 

CFT  CORF  FDR  RFC,  SAVF  ARFA 
L  f  1 A  f)  ITS  AD  DR  I  Ai  T  n  R  Ft; 

PTft  TO  M  AIM  DM  PA 

ADI5R  |')F  STACK  IK'IT,  RTN 

fi'l  « FT  STACK 


address  OF  CSC M 

TFS1  FDR  SYSTEM  TASK 
BRANCH  mot  SYSTEM  TASK 


.  '  "'H'vi.n  .'i/.Stf-M  /ASK 

KKroerAN(XH>  ,ACSTAkTr’  TA-SKMAMF  ON  COMMAND 


ST 
M  VC 
CL  I 
PE 
SR 
IC 
ST 
M  V I 
MVI 

RF.RFAD  L 
LR 

HAIR 

UTR 

HNE 

CLC 

BE 

PC  T 

P 

NFXTTTR  M VC 

ft 

NODOROER  RiyC 
MVC 


PNF  SKIP SCAN 
LA  R0.X246 

GETMAIN  ft,LV=(0) 

LR  R3,R1 

LA  R10*X8(R3) 

LA  R13,X1B4(R3) 

•'SING  S  I  f)T»  R  10 

ST  R10,X0(R3> 

MVC  X  4  (  X  4 ,  R  3  )  ,  S  C  T  F  S  I  f)  T 

CLI  SCTNSIflT  *Nf)Sir)TS 

PE  NOD ORDER 

SR  R  2  ,  R  2 

IC  R2 *  SCTMS I OT 

ST  R3.0MPCM 

MVI  QM  PCM ,  CINFR  EC 

MVI  OMPOP iRFADCODfi 

L  R15,  [EFOMGRV 

LR  R1»R9 

PAIR  R 1 4  *  R 1 5 

-TR  R15.R15 

3NE  S  1)0620 1  5 


TASK  SPECIFIED  SKIP  SCAD 
OFT  CORF  R  HVTES  FOR  FARM. 

176  PYTFS  FDR  READ  ARFA*  72  RSA 
ADDRESS  (IFFXTFRNAL  LIST 
ADDRESS  OF  READ  IN  AREA 
ADDRESS  DF  RFC,  SAVE  ARFA 
TEMP  SUIT  BASE 
ADDRESS  OF  READ  IN  AREA 
TTR  OF  SlnT  FROM  SC T 
ARE  THFRF  ANY  SUITS 
BRANCH  Mfl  SKITS 
ZERO  REGISTER 
NUMBER  OF  MOTS 
FARM  LIST 
REA!)  one  RFC  dr  n 
READ  OP  CODE 
ADDRESS  OF  IEFOMRAN 
ADDRESS  OF  QMPA 


NFXTTTR 


test  FOR  ID  ERROR 

b  1)06  20 1  5  BRANCH  I  /<)  ERROR 

SCTDDMAM ( XR ) , J EFRDER  IS  DDNAMg  IFFROFR 
OORDER  BRANCH  YES 

R2* NFXTTTR  GET  NFXTTTR 

iffrdfr  not  found  df f aul  r  proc 

REREAD  ’SCTf,SlnT  TTK  °F  NFXT  TT'R  !N'  CHAIN 

CHKFY(XR) ,JCTJNAME  MOVE  PROC  TO  CSCB  AS  TASK  NAMF 
SCTSNAMF  (XR  )  ,  JCT.JNAMF  MAKF  JORNAME  STFPNAME 


1272 

12  72 

12  7? 

1272 

1272 

12  72 

1272 

1272 

1272 

127? 

1272 

5  2  72 

1272 

I  272 

1272 

12  72 

12  7? 

12  72 

127? 

I?  7? 

1272 

12  72 

127? 


IS  »  02  16000(' 
*  0? 1 H  0000 

>.’(  0  5  9/1  /1 ,1,1  A 

f  199  0  ?  ?()6n  1  9 
1)99  0??t?0]O 

111  (1  9  9  ’) 

:<>;<«, ;t  02240000 
■>  02260000 
02  2R  0000 
IRI  7  024fUioi7 
2  72  D?  Spool q 
02BR601 9 
026900) 9 
02596019 
0260001 9 
02604019 
0261 00J9 
026) 5019 
02620019 
02625010 
02630019 
02635019 
02640014 
02644019 
27?  02660019 
772  02664019 
2  72  0? 6600 1 9 
27?  026650)9 
?72  02670019 
27?  02674019 
272  026800 1 9 
’  7  2  0  268  4019 
'72  02690019 
02695019 
'7?  02700019 
'72  0270501.9 
'7?  02710019 
72  02715019 
'72  02720019 
7?  02725019 
72  02730019 
72  02735019 
72  02740019 
7?  02745019 
72  027500  1.9 
72  02765019 
72  02760019 
72  02765019 
72  02  77 Of)  1  9 
72  02775019 
7?  02780019 
72  0  2 78 60  19 
72  027900)9 
72  02795019 
72  02800019 
?2  02805019 
7?  028 1 00 1 9 


-77- 


B 

I E  F 16205 

1272 

02  R 1 50  1  9 

SKIPSCAN 

M  VC 

SCTSNAMEIX8) .SCTSCLPC  MOVE  T ASKNAMF  TO  STEP  NAME 

1272 

02H30D19 

<■»  V  I 

ovi  i  Jt  l rL  tBLAivK 

1  ft  t  £ 

1 1  /  M  U  |  V 

MVC 

SCTSCLPC+Xl (XT) , SCTSCLPC  BLANK  STEP 

1272 

02H40019 

B 

IEFS0024 

12  72 

0  ?  R  4  5  0  1  4 

17  ORDER 

CLC 

SCTUTYPE(X4) , BLANK FW  IS  UNIT  TYPE  SPECIFIED 

i  272 

u/n  t>o« i  IS 

BE 

NODDROER 

BRANCH  ON  NO  UNIT 

127? 

028550 1 9 

M  VC 

SCTSNAMFIXBI  ,  SCTIITYPF  SAVE  UNIT  NAME  IN  SC  T 

I  2  72 

02 H  600  1  4 

MVC 

CHKEY(XR) ( SCTUTYPE 

SAVE  UNIT  WANTED  IN  CSCB 

127? 

02865019 

I EF16205 

EQIJ 

* 

127? 

02870014 

MV  I 

SCTSCLPC, BLANK 

INSERT  BLANK 

12  72 

028750] 9 

MVC 

SCTSCLPC+X1 !X7) , SCTSCLPC  BLANK  STEP  THAT  CALLED 

127? 

OPR 8 00  19 

DROP 

RIO 

0288  501') 

USING 

lEFTIOT.RlO 

127? 

02890019 

01 

LCTINTSW.LCTSTART 

SET  SWITCH 

1272 

02895019 

L 

K10.LCTTCBAD 

ADDRESS  OF  INIT'S  TCB 

127? 

0289601 9 

L 

RlOtTCBTIO(RlO) 

ADDRESS  OF  T I OT 

I  ?  72 

028970)9 

MVC 

TIOCSTEP(XB) ,CHKFY 

TIOT  STEP  NAME  =  CHKEY 

1272 

0?  8 9 RO  1 9 

LR 

R  1  ,R3 

SET  UP  TO  FREE  READIN  AREA 

1272 

02900019 

LA  RC7 

,  X256 

LENGTH  TO  HE  FREED 

12  72 

02902019 

FREFMA  IN  R  ,LV» ( 0 ) » A« ( 1 ) 

FREE  CORE 

12  72 

02905019 

I EESD024 

EQU 

127? 

02910019 

L 

R2  ,  LCTP ARM3 

SAVE  GWT  ADDRESS  IN  REG 

1272 

02930019 

CLI 

LC  TP ARM3 , X  '  R  ' 

DID  AM  ERROR  OCCUR  IN  IRES 

L  S  1 7 

02964017 

BNE 

IEE06223 

NO  ERROR 

L  S  1 7 

02965017 

OC 

SCTMSADR ( 4 ), SCTMSADR  IS  THIS  A  SPECIFIC  REQUEST 

C  R  1 7 

02966017 

BE 

S0162F3 

NON-SPECIFIC 

CR  1 7 

02967017 

M  V  I 

LCTPARM3.X '4' 

ERROR  IN  SPECIFIC  REQUEST 

CR  17 

02968017 

SD162F3 

01 

JCTJSTAT, INCMSTS 

TURN  ON  JOB  FAILED  BIT 

CR  1  7 

02969017 

I EF06223 

EQU 

CR  1  7 

02970017 

* 

12  7? 

02971)519 

*  ALLOCATION  AND  OPEN  WILL  NEED  TC 

1  REFERENCE  THE  JOB  STEP'S 

1272 

0297] 019 

*  WRITE  TO  PRORRAMER  CONTROL  BLOCK 

.  THEREFORE  THE  SHHTASKS 

12  7? 

02971519 

4  JSCB  WILL  BF 

IN  THE  INITIATOR'S 

TCB.  THE  JSCB  FOR  THE  1NIT 

1272 

02972019 

»  WILL  BE  KEPT 

IN  THE  LOT 

127? 

02972519 

L 

R4, LCTTCBAD 

ADDRESS  OF  IN  I T  TCB 

1272 

02973019 

L 

R3f LCTJSCB 

JOB  STFP  JSCB 

127? 

02973519 

L 

RO, TCB JSCB ( R4 I 

INIT'S  JSCB 

1272 

02974019 

ST 

R3  ,  TC B JSCB ( R4 ) 

JOB  STEP  JSCB  IN  INIT  TCB 

1272 

02974519 

ST 

RO, LCTJSCB 

INIT'S  JSCB  IN  LCT 

1272 

02975019 

LA 

RO , X 1 04  GETMAIN  SIZE 

09V 

02976019 

LA 

R 1 , TCORF 

LOAD  SUBPOOL 

1272 

02982019 

SLL 

R 1 ,  X24 

SUBPOOL  IN  HIGH  ORDER  RYTE 

1272 

02988019 

OR 

RO,  R 1 

SUBPOOL  AND  LENGTH 

1272 

02  99401.9 

* 

FOLLOWING  GETMAIN  INCLUDES  8  BYTES  FOR  A 

099 

03000019 

* 

PARAMETER  AREA 

TO  B.E  PASSED  TO  IEFDSOWR. 

099 

03006019 

* 

SAVEAREA  IS  RE 

-USED  WHEN  LINKING  TO  SAME. 

099 

03012019 

* 

099 

03018019 

GETMAIN  R  »  L  V  =  (  0  1 

72  BYTE  SAVE  AREA  24  PARM  AREA 

127? 

03024019 

LA 

R13,X24(R1 ) 

ADDRESS  OF  SAVE  AREA 

1272 

03030019 

L 

R3»LCTJCTAD 

JCT  ADDRESS  FROM  LCT 

03040000 

ST 

R  3 , 4  (  0 ,  R  1  ) 

TO  PARAMETER  LIST 

03060000 

ST 

RB  » 0 ( 0 , R 1 ) 

LCT  ADDRESS  TO  PAR  L ST 

030R0OOQ 

TM 

JCTJSTAT, INCMSTS 

HAS  JOB  BEEN  PREVIOUSLY  FAILED 

099 

03080919 

BO 

DSOOK 

YES-OON'T  [)0  ANY  DSO  PROCESSING 

099 

03081819 

CLC 

SCTPGMNM(EIGHT) , RESTART  IS  STEP  RESTARTING  FROM  M3150 

030R271 9 

* 

A  CHECKPOINT? 

099 

03083619 

BNE 
T  M 


Z'ZZi  ,rr,  c  NV~  Dm'J  nn  °Sn  HPSTfiRT  C.HFCK  099 

JCTRSM.JCTDSnjR  +  JCTOSOCR  IS  USD  RESTART  ENVIRONMENT  noe 


osn,,K 


CHECK  NEEDED? 

'  “  "  K  ND— BYPASS  LINK  TO  I EFOSOER 

"'P=ifrnSflCk  ,MP=  1  F  ’  1  1  N  LINK  Tn  fFFfJSDCR 
;  1  ,K  1 1  l S  job  w  run 

hREF,,P  no  -  FREE  RESOURCES 

irtl,c„r  ,  YES  ~  r’n  TO  ALLDCAT I  ON 
JCTDSOS'H  N3  )  » JCTOSOSM  FORCE  OSO  MSG  RFBUIL0 


LR 

m 

ALLDCATE  EOU 


FRFEUP  EOU 
ST 
LR 
LR 
TM 
BZ 
M 
OEO 

I EFSD005  EOU 

*  CDNf)  I  T  I  ONALL 

* 

*  *  tt  ft  #  ¥  # 

JCTJOBFL  EOU 

JCTSTPFL  EOU 

*  *  «  4  9  ill  # 


LCT0PSW1,LCTCAMF  te< 
ALLOCATE  hr} 

R3»R1  SAV 

MFs(  F,SYSCMIJ)  emc 

R  1 1 R  3  re< 

CHACT.CHCL  SET 

4 

R4fR4  C1_ 

EP=IEFW21SD,MF=| E ,  (  1  )  ) 


TEST  FOR  CANCELLABLE 
BRANCH  IF  ALREADY  CANCELLABLE 
SAVE  PAR M  REGISTER 
ENOOFUE  TO  MAKE  SYSTEM 
TASK  CANCELLABLE 
RESTORE  PARM  REGISTER 

set  cancelable  bit 

clear  REGISTER  FOR  SWITCH 


R2,LCTPARM3 
R  3  r  R  ]  5 
R2,R1 

LCT0PSW1 .LCTCANF 
1FFSD005 
CHACT  *X255~CHCL 
MF=  (  E  r  S YSCMl) ) 

* 

V  LINK  TO  I EF050WR 


099 
099 
099 
M4Q12 
M4012 
M40  12 
M2945 
099 
1272 
1272 
1272 
1272 
1272 
1272 
1272 
099 
D9  9 
099 
099 
099 
1272 


RESTORE  SAVFO  GUT  ADDRESS  1272 

SAVE  RETURN  CODE 
SAVE  NEW  PARAMETER  LIST  ADDRESS 
TEST  FOR  CANCELABLE  TASK  r  ?y> 

BRANCH  IF  CANCELABLE  TASK  I?7? 

RESET  TO  NON-CANCELLABLF  t2'72 

release 


*  4  9  * 

64  BIT-1  JOB  FLUSH 

16  BIT-3  STEP  FLUSH 

*  *  *  ft 

S?'"21b  f”KrHESE  mi  DS0C”'S  ™>  Jn» 

SCTPGMNM .RSTRTCK  IS  C/R  OSDR  PHASE  BEING 
,,  LOCATTED 

DSOCOMP  YES  -  BYPASS  LINK 


OMGRRW 


f)C  JCTOSOSM,  JCTDSOSM 

BNZ  FAJLTEST 

GETMAIN  R  f  L  V  =  1 76 
ST  R1,N72(,R13) 

LA  R  1 » N72 ( >  R  1 3  ) 

MVC  M4(N3,R1),JCTSMBAD 

MVI  N7 ( R 1)  ,N0 

ST  R 1 » OMPCL 

MVI  Cl  M  POP  t  OMR  E  A  D 

MVI  0MPNC,N1 

LR  R 1 »  R9 

L  R15,IEF0MGHV 


i  yw 

WAS  FIRST  SMB  HANDLED  099 

TES-  BYPASS  SMB  CONSTRUCT! 0N099 
GET  CORE  FOR  READ  IN  AREA  099 

SAVE  POINTER  IN  EXT  PARM  099 

GET  POINTER  TO  EXT  PARM  AREA099 
MOVE  IN  TTR  OF  1ST  SMB  099 

ZERO  OUT  LOW  ORDER  BYTE  099 

EXT  P ARM  AREA  TO  OMPA  099 

INDICATE  READ  nag 

OF  ONE  RECORD  n99 

R 1  MUST  POINT  TO  OMPA  099 

GO  TO  0  MANAGER  nQa 


19  030R4519 

10  n  3  0  0  c  /.  1  n 

'9  030R6319 
9  030R7219 
9  03088119 
2  03089119 
2  03090119 
2  0309] 1 19 
6  03091819 
9  03092119 
2  03092419 
2  03092719 
2  03093019 
2  03093319 
2  03093619 
?  03093919 

2  03094219 
i>  03094519 

3  03094B19 
»  030951 19 
3  03095419 
>  03095719 
’  03096019 

03096319 
i  03096619 
1  03096919 
1  03097219 
03097519 
03097819 
03098119 
03098419 
03098719 
03099019 
03099319 
03099619 
03099919 
03100219 
03100519 
03100819 
03101119 
03101419 
03101719 
03102019 
03102319 
03102619 
03102919 
03103219 
03103519 
03103819 
03104119 
03104419 
03104719 
03105019 
03105319 
0.310561  9 
03105919 
03106219 
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HALR 

P14.R15 

1199 

nil  04 91  9 

L  TR 

R  1  4  .  »  1  A 

• «'  A  t\  t  A  i  /  u  K 

09q 

03 1  Oft  H I 9 

HNZ 

S0042015 

BRANCH  NO  THFRP  NAS  ERROR 

1  199 

0  11(171  19 

* 

0  99 

03107419 

*  N  0 

T  E 

-  R?  trm,pa  ,R5  ,R6  ,R7  ,ftfl 

ARC  BEING  SAVED 

099 

03107719 

099 

03 1 0RD1 9 

STM 

R2,RH,NC(R13) 

STORE  SOME  REGIS1FRS  TD 

099 

031  OH  319 

* 

ALLOW  FOR  WORK  REGISTERS. 

099 

0  3  10RM9 

CLI 

QMPOP  ,  OMWRT  E 

EAS  WKITF  DOME 

099 

031  OH  9 1 9 

HE 

SMBOtlT 

H-YFS. 

099 

0  3  1  09  2  1.9 

L 

R  2  t  OMPCL 

GET  POINTER  TO  EXTBARM  AREA  [109 

03109419 

L 

R2  t  NO ( R  2 ) 

GET  POINTER  TO  SMB 

099 

031 09 R 1 9 

LA 

R  2  » M  0  (  R  2  ) 

CLEAR  HI  ORDER  BYTE 

(199 

03110119 

USING 

SMRDSK AD»  K2 

099 

031 10419 

LA 

H  3  *  SMBHOR  + 1 

GET 

OFFSET  TO  SMHMESSAGE  A  R  F  A 

099 

031 10719 

LA 

R 3 »  L 1 DSOMSG ( ,R3 ) 

GET 

INCREMENT  FOR  R3 

099 

031 L 101 9 

L 

RR.CVTPTR 

LOCATION  OF  CVT 

099 

03111319 

USING 

I  fi  ECVT , R  H 

099 

03111419 

L 

RR.CVTMSER 

ADDR  OF  MAST  SCHEf)  DATA  AREA099 

03111919 

USING 

BASE.Rfl 

M/S  BASE  REG 

099 

031122)9 

099 

03112419 

END 

MF= ( E . DSOCBNQ ) 

END 

ON  DSOCB  CHAIN 

099 

031  12819 

L 

RflfRADSO 

FIRST  DSOCB  ADDR 

099 

03113119 

USING 

I  E  FOSDCB .  R8 

SET  BASE  FDR  DSOCB 

099 

03113419 

nsncHLP 

LA 

RR,MO(R8) 

CLEAR  HIGH  ORDER  BY  T  F 

1)99 

031 | 3719 

L  TR 

R8.RH 

ANY  MITRE  nSOCKS 

099 

03]  140  19 

HZ 

WRTOUT 

NO-  BRANCH  TO  WRITE  SMB 

099 

031 14319 

CLC 

DSOKFY, JCTJSRNG 

IS  THIS  A  SELECTED  DSOCB 

099 

031  14419 

RE 

MSG SETUP 

YES  GO  TD  SFT  UP  MESSAGE 

09  9 

0.31  14919 

NXTDSn 

L 

R8f DSONXT 

GET  A  (IF  NEXT  DSOCB 

099 

03115219 

B 

OSOCBLP 

+  GO  TO  LOOP 

(199 

031 1 5519 

MSGSETUP 

EOIJ 

i',t 

099 

031  1  5  B 1 9 

TM 

DSOIND1  *  DSOCR  +  DSIlNnnp 

TFST  IF  DSOCB  MOT  TO  BE  ALLCD99 

031161 19 

RNZ 

NXTDSn 

IF  YES-GET  NEXT  DSOCB 

099 

03116419 

M  VC 

NO ( N 1 , R  3 ) *  DSUSCLS  MOVE  SYSOUT  CLASS  TO  MFSSAGE 

099 

03116719 

MV  I 

ni I R3 ) *  Comma 

AMD  FOLLOW  IT  BY  COMMA 

IT  9  9 

03117019 

LA 

R3,N2(R3) 

INCREMENT  R3  BY  2 

1199 

03117319 

B 

NXTDSD 

AND  CONTINUE  LOOP 

099 

03117619 

WRTDUT 

EOU 

* 

099 

03117919 

DEO 

MF= ( E  » OSOCBMO ) 

DEO 

ON  DSOCB  CHAIN 

099 

03118219 

LA 

R4.SMBHDR+1 

SET  UP  TD  WRITF  OUT  MESSAGE 

099 

03118519 

LA 

R4 ,  L  ' DSOMSG ( ,R4 ) 

SET  R4  TO  MATCH  WITH  R3 

099 

03118819 

CR 

R  3  *  R4 

EQUAL  MFANS  Nil  MFSSAGE 

09  9 

03119119 

BE 

SMHOUT 

LB  MOT  TO  WRITE  MESSAGE 

099 

03119419 

MV  I 

NO ( R  3 ) t NO  ZERO 

NXT  AVAILABLE  BYTE  INCASE 

M2  94  5 

031 19719 

MSG  IS  BEING 

REBUILT  FROM  A  RESTART 

M2  94  5 

03120019 

BCTR 

R  3  r  R  0 

DECREMENT  COUNTFR  BY  1 

099 

03126219 

MV  I 

NO ( R  3 ) .PERIOD 

OVERLAY  LAST  COMMA  WITH  PERIOD 

099 

03124319 

LA 

R4.SMHHDR 

GET  SMB  HFADFR  LENGTH 

099 

03124419 

SR 

R3,R4 

CONVERT  R 3  TO  mSGLWGTH 

099 

03124419 

STC 

R3.SMHMSGLN 

+  STORE  IT  IN  SMBMSGLNGTH 

099 

03126619 

LA 

R  3 » M 1  (  ,  R  3  I 

INCREMENT  ky  1  TR  GET  NEXT  AVAIL  HT 

09  9 

03126719 

STH 

R3  fSMHNABPT 

INDICATE  NEXT  AVAILABLE  BYTE 099 

03126819 

LA 

R  3  »  SMBHDR+ 1 

GET 

OFFSET  TO  SMHMESSAGE  AREA 

TI99 

03126919 

M  VC 

NOIL  'DSrjMSG,R3)  , 

DSOMSG 

MOVE  JN  MESSAGE  HFADFR 

099 

03127019 

M  VI 

OMPOP.OMWRTE 

INDICATE  WRITF  OPERATION 

099 

03127119 

09  9 

03127219 

*  * 


-  R2,R3.R4,R5,R6,R7,H8  ARE  BEING  RESTORFD 


R2,»R.NC(H13) 


L 1 1 A II  THE  REGS 


SMKOIIT 


M VC  JCTDSDSMIN3 ) .JC1SMHAD  HAVE  1ST  SMB  POINTED  Tf)  TO 

INDICATE  SMB  WAS  HANDLE 0. 

L  Rl.OMRCL  C,FT  EPA 

L  Rl.lMOl  ,Kl  )  GET  CORF  ADR 

FREFMA IN  R  ,LV=176 ,A  = ( 1 ) 

T  E  -  K2  ,R3,R4  ,RB  ,K6  ,R7,R8  ARE  BEING  RESTORE!; 


LM  R 2  *RH  «NC ( R 1 3 ) 

DROP  R2 

*  RE-SET  LCT  BASF 

USING  1 E  ELOT  .  R8 

* 

FAILTEST  E  01)  * 


LOAD  THE  REGS 


03127319 
03127419 
03)27519 
03127M9 
03127719 
03127B19 
03127919 
0  3  1  2  FI  0 1  9 
03123119 
03128219 
03128319 
03128419 
0312R519 
03128619 
03128719 
031288  1.9 
03128919 
03129019 
03129119 
031292)9 


TM 

JCTJSTAT, JCTJDHEL+JCTSTPFL  HAS  JOB/STEP  FAILED 

M3  1 64 

03129319 

BNZ 

DSOCOMP  YES-BYPASS  LINK 

n99 

03129519 

099 

03129619 

LTR 

R 3 i R 3  ANY  ALLOCATION  ERRORS 

099 

03129719 

BNZ 

DSOCOMP  YES-  BYPASS  LINK 

099 

03129819 

* 

099 

03129919 

TM 

SCTSTAT2. SCTDSDCL  DIO  IFFDSOAL  IN  ALLOCATION 

099 

03130019 

* 

FIND  WORK  FOR  IFFOSOWR 

099 

03130119 

RZ 

DSOCOMP  NO  -  BYPASS  LINK 

099 

03130219 

099 

03130319 

* 

LINK  TO  IFFOSOWR 

099 

03130419 

099 

03130519 

LA 

R1.N72I.R13)  GET  8  BYTE  PARM  AREA 

099 

03130619 

ST 

R8.N0I , R 1 )  LCT  ADR 

099 

03130719 

M  VC 

N4IN4.R1 ) , I EFOMGRV  OMGR  ADR 

099 

03130819 

i;< 

099 

03130919 

LINK 

F  P= 1 GFDSOWR , MF= ( E  » ( 1  ) ) 

099 

03131019 

* 

099 

03131119 

099 

03131219 

#  #  # 

RETURN 

CODES  AND  SETTING  R3 

099 

03131319 

1.  LINK  TO  IFFOSOWR  ETC  IS  BYPASSED  IF  AL  l  DC.  AT  1  ON  /  I  E  F  DSOCR  099 

RF TURNS  A  NON-ZERO  RETURN  CODE.  SEE  ABOVE  CODE.  099 

2.  IF  ZERO  RETURN  CODE  FROM  ALLOCATION  THEN  -  099 

A.  IF  IFFOSOWR  ENCOUNTERS  A  JOBO  I/O  ERROR  A  099 

RETURN  CODE  OF  12  WILL  8F  SENT  BACK  INDICATING  099 

JOB  SHOULD  BE  ABENDED  WITH  A  'OBO'.  R3  WILL  099 

RE  MADE  NEG  IN  TEIIS  CASE  SO  THIS  PRPC.  CAN  099 

DU  FREEMAIN  ETC  BEFORE  ABEND.  099 

B.  IF  IFFOSOWR  ENCOUNTERS  A  PERMANENT  I/O  FRROR  099 

WHILE  WRITING  JOB  SEPARATORS  OR  SMB'S  TO  A  099 

DIRECT  DEVICE  THEN  A  RETURN  CODE  OF  4  WILL  099 

BE  SENT  HACK  INDICATING  THE  JOB  IS  TO  BE  FAILED.  099 

R 3  WILL  BE  SET  PLUS  AND  WILL  CAUSE  THIS  PROG  TO  099 

TAKE  the  SAME  ROUTE  THAT  IS  TAKEN  WHEN  ALLOCATION  099 
RETURNS  A  NON-ZERO  RETURN  CODE.  099 


R  3  ,  R  1 5 


PRIME  FOR  POSSIBLE  ABEND  AND  SAVE 


03131419 

03131519 

03131619 

03131719 

03131819 

03131919 

03132019 

03132119 

03132219 

03132319 

03132419 

03132519 

03132619 

03132719 

03132819 

03132919 

03133019 
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CDNO  CODE  8  NOT  in  use 
LR  P. 3  ,  R  1 8  l 


NOTE  -  A  7FHO  VALUE  REMAINS  UNCHANGED 
AND  PLUS 

R15.R15  ANY  ERRORS 
DSOCOMP  Mfl-CUNT  MAINLINE 

R1,NS  YES-SET-UP  Til  TEST  CflMD  CODE 

R  15  »R  1  T  F  ST  IE  A  HDVF /BELOW  R 

DSOCOMP  HIGH-CONO  CUDF  12  =  JOHN  I/O  ERROR 
KEEP  P  3  NEG  FOR  AHFNI1  LATER 


P.3.R15  Lnw-CONO  CODE  4  =  I/O  F  RR  ns  ON  OSI1 

DEVICE  while  WRITING  SMB'S,  ETC.  PRIME 
R  3  TO  BYPASS  EXECUTION  OF  P/P. 

R  3  NOW  POSITIVE 

JCTJSTAT ,  INCMSTS  TURN  ON  JOB  FAIL  BIT 


DSOCOMP  FQU 

N I 


*  CONT  MAINLINE 

SCTSTAT2 , N255-SCTDSOCL 


RESET  FDR  TERMINATION 


LR  R  1 , R 13  RESTORE  ARSA  POINTER. 

FREEMAIN  R , L V-BO , A= (  1) , SP  =  TCOR fi  FREE  SAVE  AMD  PARM  AREA 


R3,R3 

IEFSD010 

R  1 , LCTTCRAO 

R  14  ,  TCBJSCB (R I  I 

RO.LCTJSCH 

R14.LCTJSCB 

RO.TCBJSCB(Rl) 

R  14,LCTEX IT 
R14,X0(R14) 


SHOliD  ATTACH  BE  BYPASSED. 
NO. 

ADDRESS  OF  I  MIT'S  TCR 
JOB  STFP  JSCB 
iNIT'S  JSCB 
JOB  STEP  JSCB  IN  LCT 
INIT'S  JSCB  IN  INIT'S  TCR 
ADDRESS  OF  EXIT  LIST 
ZERO  HIGH  ORDER  BYTE 


a**#*  test  FOR  EXIT  LIST  TO  BE  REMOVFO  IN  R20  ***#>;< 

LTR  R14.R14  TEST  FOR  EXIT  LIST 

BZ  FREEGWT  BRANCH  NO  EXIT  LIST 

MV  I  IELRTNC0IR14) ,RTNC00E4  SET  RETURN  CODF  TO  4 
FREEGWT  EOU  # 

LA  R 14 , TCORE  YES.  LOAD  SURPOOL  NO. 

SLL  R 14 , 24 

LA  R0,GPMINPAR+4-GETPTWT  LOAD  LENGTH  OF  GETPART  WK 

OR  R 0 , R 1 4  LOAD  SHBPOnL  +  LFNGTH 

L  R 1 , LCTP ARMS  LOAD  ADDRESS  OF  GWT 

FREFMA IN  R, LV= (0  )  , A=( 1 ]  FREE  ITS  CnRE 

LTR  R 3 , R3  TEST  REG  STATUS 

RM  S 00620 15  NEG  REG  -  JOHO  I/O  ERROR  FROM 


R4,R4 


T0165 


USING  IEZJSCR.R1 


FREE JSCB 
DROP  R 1 


R 1  *  LCT  JSCB 
R14, JSCBWTP 
CB  SYSTEM=MVT 


NEG  REG  -  JOHO  I/O  ERROR  FROM 
I  EFDSOWR ,  GO  TO  ABEND 

IS  THIS  ABNnRMAl  RETURN  FROM 
I EFDSOCR? 

NO-GO  TO  IEESD165 
JSCB  ADDRESSABILITY 
ADDRESS  OF  JOB  STEP  JSCB 

P  ADDRESS  OF  WTP  CONTROL  BL K 

=MVT  FREE  JSCB 


R 1*  R  14 
R14, TCORE 
R14.X24 
RO,WTPCHSIZ 


ADDRESS  OF  WTPCH  IN  R1 
SUBPOOL  253 

SUBPOOL  IN  HIGH  ORDER  BYTF 
SIZE  (IF  WTPCH 


03 1 33 II w 
0  3  H  3  2  14 
031 13314 
03) 33414 
03133514 
031 3341 4 
03133714 
0  3  1  3  3  H  1  4 
03133414 
03  1  3401 4 
03134114 
D3 1342 14 
031 134  31  u 
03134414 
03134414 
03134414 
0313471 4 
03134R19 
03134419 
03141017 
03141219 
03141419 
03141619 
0  3  1  4  1  B  i  9 
03142019 
03142219 
03142419 
03142619 
03142H19 
03143019 
03143210 
03143419 
03143619 
03143819 
03144019 
03144219 
03145017 
03146017 
03146119 
03146219 
03146319 
0314641'! 
03146519 
03146619 
03146719 
03144819 
03146919 
03147019 
03147119 
03147219 
03147319 
03147419 
03147819 
03147619 
03147719 
03147B19 
03147919 
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1 

r-K 

Rd  ,  W  1* 

SimpfinL  AMO  S  t  7  F  | «  rfi;  0 

09  9 

03148019 

PR  F  F  'V'A  1  M  R  ,1.  y=  (  0  )  .A  =  (  1  ) 

F  R  F  F  WTPCR 

(199 

03148119  j 

1 

Kh,Ii-FS')|M 

IFFSD161  LINKAGE 

099 

03149819  1 

RETURN  TO  SFI.FfT  ANOTHER  JOB 

D99 

03180019  | 

i 

1  U 

R  1  ,  R  H  |  C 

Alik 

k<  /  #\  1  *1 

wu  1  !iO  /  I  5  c 

[ 

8  IS 

X  C  T  |_  TO  1  f-  F  SIT  16  1  VIA  LINKAGE 

099 

03130419  j 

Ml  1 1  H  l|.  F 

099 

031 306 1 9  j 

!  [HIM 

H-U) 

(199 

03130)119  , 

1 

p  1  S  ,  I  F  F  S  1  IS  *1  V 

CR  17 

03131017  / 

f 

l.rt 

H  t  ,W? 

RESTORE  PARAM  LIST  PTR. 

CR  1  7 

03182017 

R  l  s 

Ml  T(1  IFFSD063 

CR  17 

03  133017  ;• 

;  <•  0 

;s  j;j  j;«  >;»  >;s 

( i|t  >!i  ::s  i; *;t  s|:  jJc  !|:  i;t  :|J  (i  >;<  t't  >;t  if  >: 

’I. ’it  *  «  xc  #  *  &  F  >:t  x*  $  x*  ■,<  V  x<  *  » x.  <■  »  x>  x«  R  x<  Xt  xt  # 

CR  17 

03193017 

1 

CR  1 7 

03233017 

*  -J 1 1 1 1. 1 ) 

*  i\  M  A  M 

1ST  FIIW  IFFSI1SI4  ri 

WW  I  1  F-  HUT  TIUT  r.  r.HT  RFG  SAVF  A 

CR  1  7 

03273017 

CR  17 

03313017 

i\i  :|i  $ 

.t  > '  >;t  *  s;s 

l  >:<  !*  {:  V;  j;:  :|t  j‘i  j;t  <:  ij:  fr  *|c  if  jj: 

y,t  >;t  if  >|(  n  >;:  *  if  >;<  *  j;<  v«  >;c  >]c  a;*  if  ^  ^  */  «:«  *,<  >:<»!<  **  ^ 

CR  1  7 

0333301 7 

1  M-Sil|>ln 

H  rM  i 

* 

CR  1  7 

03393017 

U.  I 

CHvr.n  ♦  spf<fu;^/»^i 

CHFCK  FUR  STARTFIT  PRDC.RAM 

1277 

03394019 

KNF 

I  F  H  S 1  if  *  1  l 

FRAMCH  MOT  A  STARTFn  TASK 

1272 

0.3.39  3019 

[ 

t. 

'?)!  1,  1^(«2  ) 

I.IIAH  T  I  ITT  L  !  ST  PTR 

1272 

03396019 

1 

^lnf  (» <  «  1  n  > 

PTR  TM  TIUT 

1277 

03397019  , 

f  1 IMI SBC” 

c  l  r. 

T  III!  nilMiilXR  )  ,  I  FhRPFP  IS  ITITNAMF  IFFRDFR 

1272 

03398019  j 

lie.  H  AMUR 

HR  A  RICH  YFS 

127? 

03399019  ! 

SR 

R  3  ,  k  3 

7FRII  MFIll  ST  F  R 

127? 

03400019  j 

IC 

R  3 ,  T  1 I  iFI.MGH 

I.FMHTH  HF  TIPT  FMTWY 

127? 

03401019 

1.  1  R 

K4.ll  3 

T F ST  FI1R  FMIT  1 1 F  T  I  OT 

1272 

03407019 

><7 

Ml  Ik  OF  k 

FRAMCH  FMII  HF  TIPT 

127? 

03403019  ! 

nk 

R  K'.KR 

Ado  F  Ft  TRY  LFMC.Th  TO  KA  S  F 

127? 

03404019 

t< 

Tin  Sr  c.h 

TFST  MFXT  DO  FMTRY 

127? 

03403019 

1  ILK  A|]|)R 

1. 

K'4,1  IIIFSTTH 

LIIAIT  1 1 C H  PDIMTER 

1272 

03406019  1 
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GFYMAIN  FOR  R  FAD  BUFFER 

C  R  1  7 

04371117 

LR 

R5,R1 

SAVF  FOR  FRFFMAIN 

CR  1  7 

043714] 7 

LA 

RV.OMGRl 

O  MMGR  PARAMETER  AREA 

CR  1  7 

04371717 

LA 

R13,REGSAVE 

REGISTER  SAVF  area 

C  R  1  7 

04372017 

LA 

R  1  .REGSAVE+72 

REMOTE  PARAMETER  AREA 

CR  1  7 

04372317 

ST 

Rl fOMPCL 

STORE  ADOR  OF  R FMOTF  PARAM 

CR  1  7 

04372617 

MV  I 

OMPOP ,4 

READ  INDICATOR 

CR  1 7 

04372917 

MVI 

OMPNCfX • 01 • 

R  F AO  nNF  RECORD 

CR  1  7 

043732 1 7 

ST 

R5 , 0 ( 0, R l ) 

STORE  BUFFER  AOORFSS 

CR  1 7 

04373517 

M  VC 

4(4, Rl ) fSCTXBTTK 

MOVE  TTR 

CR  1 7 

04373H17 

LR 

R  1  ,R9 

ADDRESS  OF  O  MGR  PAR AMFTFR 

CR  1 7 

043741 17 

L 

R15, I5F0MGRV 

AOORFSS  OF  0  MNGR 

CR  1 7 

04374417 

RALR 

R 1 4 , R  IS 

READ  THE  RECORD. 

C  R  1  7 

0437471 7 

EX 

R  3 , I F  FMHVF 1 

CR  1  7 

04375017 

LR 

Rl  ,R5 

RESTORE  POINTER 

CR  1  7 

04375317 

-86- 


LA 

RD, | 76 

CR  1  7 

FREFMA  IN  R ,LV=<0 1 . A=(  11 

CR  1  7 

S  006?  70  F.OIJ 

Xf 

r.R  i  7 

L 

R3  .I.IMFAP 

FT*  III  IKALK  STACK  INFO 

1  1404 

L 

R  3  t  0  (  R  3  ) 

PTR  TO  STACK 

1  1404 

LA 

R  3 , 0  (  R  3  ) 

ZERO  HI  ORDER  BYTE  1)11404 

LT« 

R3.R3 

TEST  IF  STACK  FXISTS 

1  1404 

HE 

S 008225 

M(1  -  BRANCH 

1  1  404 

L« 

813,83 

PTR  Tn  SAVF  ARF A  IN  STACK 

11404 

xc 

ompdP  ( l  ) , oMprip 

ZFHO  OP  CIH7F  FOR  PURGE  R  TN 

11404 

L8 

R  1  ,39 

PTR  TO  I.1MGR  P  ARM  AREA 

1  1404 

1. 

R15, SO 06250 

A0I7R  OE  STACK  PURGE  PGM 

11404 

HALR 

R14,«16 

GO  TO  PURGE+FREF  STACK 

11404 

LR 

R  3  ,  R  1  6 

SAVF  RFTURN  GOOF 

11404 

LR 

R  1 .  R 1  3 

PTR  TO  RETURNED  SAVF  ARFA 

11404 

FREEMAIN  R,LV=72.A=|  1) 

PRFF  ARFA 

11404 

LA 

R  1  3  ,  H  E  0  S  A  V  F 

R  F  SI  ORE  S0062  SAVE  ARFA 

11404 

LTR 

R3 .83 

TEST  RFTURN  CODE 

11404 

HF 

S  0  0  6  2  2  5 

NORMA!.  RETURN 

11404 

H 

S0062010+1? 

ERROR  RFTURN  PTM663 

S  006??  6  FOIJ 

4 

11404 

:  it  it  n  $  if  >;<  it  $  >jt  it  n  it  it  jjt  j,*<  >;«  >;<  it  it  it  it  i,t  it  it  *  ijt  *  it  >:»  it  n  in  *  it  u  j;c  #  n  >:?  it  >;s  it  x<  *  >;<  >/■  w  >;<  it  it  >;<  #  *  *  #  *  V  #  J!{  *  >.'<  # 

CORF  IS  GOTTEN  FtlH  A  MAR  AM  F  T  F  K 

LIST  WHICH  IS  PASSED  BETWEEN 

1270 

I  6'  I  T  I  A  T  OR  MODULES  AMI!  FOR  IMF 

ATTACH  PARAMETER  LIST  WHICH  IS 

1270 

INITIALIZED 

IN  1EFSIU03  ANI)  USED  HY  IFFSL'763  IN  THF  LINK 

1270 

RACK  AREA  TO 

ATTACH  THE  SllHTASK. 

12  70 

#  x*  it  iK  itnn  it  >*###};(#*#  «  y,t  <c  >;<  it  at  j:<  *  it  *  it  it  n  »;<  >:<  >;<  #  >;«  $  it  #  n  >je  j;t  *  #  n  >jc  x<  >;< $  *  *  #  >;<  x<  it  j;<  i<  n  n  it  it  it  #  x<  j;<  >;«  #  xc  >!«  it  it 

LA 

RO, LIST SIZE 

SIZE  OF  PARMETEK  LISTS 

1270 

LA 

K13.LISTS1ZE-1 

Sl/F  OE  PARM  AREA  LESS  ONE 

1270 

LA 

w  1 ,  Term 

.SUHPDI  l|_  263 

1270 

SLL 

R1.X24 

SP  IN  I.IGH  ORDER  BYTE 

12.70 

OR 

R  0  ,  R  l 

SP  AND  LENGTH  IN  REG  0 

12  70 

GETMAIN  R  ,  LV  = ( 0 1 

12  70 

EX 

8 13 , CLF  ARCOR 

ZERO  GOTTITM  CORE 

1270 

LR 

R 11 ,R1 

EST  ADDRESSABILITY  ()E  PARM  ARE 

12  70 

ST 

R  4 ,  IFFUSADI) 

ADDRFSS  OE  USER  PAR N S 

1277 

LA 

RO, IFEPS  1  ZE  (R  1  1  ) 

ADDRESS  OE  ATTACH  PARM  LIST 

12  70 

ST 

RO, IEFREMLS 

ADOR  DE  ATTACH  LIST  IN  PARM  LT 

12  70 

LA 

R13,X1(R13) 

LENGTH  PE  GOTTEN  CORE 

12  70 

STC 

R 1 3 , IEERFMLS 

STORE  LFNGTH  OF  GOTTEN  CORF 

12  70 

L 

R3,12(O.K2) 

T IPTLIST  POINTER 

ST 

r  3 , 1 E  f r Iota 

PLACE  IN  PARAMETER  LIST 

L 

R  6,  LC1  (JORTY 

GET  CSCH  BASE  REGISTER 

L 

R  4  ,  L  C  T  T  C  8  A  0 

ADDRESS  OF  INIT'S  TC  B 

1272 

ST 

R  4 , I FFTC8A0 

PLACE  IN  PARAMFTFR  LIST 

XC 

0(4, R3)  ,T  IIITPlINT  («4  )  THIS  SERIES  (IE  EXCLUSIVE  UR'S 

XC 

T  KlTPftNT  (4,R4  )  ,()(  R3)  RESULTS  IN  PUTTING  THF  JOB 

STEP 

XC 

0(4, R3) ,T IOTPONT(R4J  T I DT  PTR  IN  THF  INITIATOR' 

S  TCB 

it 

AND  THE  INITIATOR  TIOT  PTR 

I  N 

it 

THF  TIOT  LIST.  THIS  IS  DONE  TO 

it 

SAVE  THF  PTR  TO  THF  INITIATOR 

it 

TIOT  WHILE  THE  PTR  TO  THE 

JOB 

it 

STEP  TIOT  IS  PLACED  IN  THE 

043766  1  7 

04  3  769  1 7 

p  4  3  7  t ? >7 

043H0O14 

043H  1H  14 

043827  ]  4 

04383614 

043P4814 

04  385414 

04386314 

04387714 

04388114 

04389014 

04389914 

043908  1.4 

04391714 

04397614 

04393614 

043944] 4 

04395314 

04396714 

043971 16 

04398014 

04398914 

04400000 

04420000 

04440019 

04460019 

04480019 

04500019 

04560000 

04600019 

04640019 

04720019 

04760019 

04800019 

04HR0019 

04970019 

04960019 

049800 1 9 

05000019 

05040019 

05060019 

05080019 

06120000 

06140000 

05160000 

05180019 

06700000 

05770000 

06740000 

05260000 

05280000 

05300000 

05320000 

05340000 

05360000 
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INITIATOR'S  TO  TO  HE  RFFER- 

()53ROnnn 

ft 

ENC  El)  BY  THE  OPEN  ROUTINE 

05400000 

ST 

Rft.  IEFI  CTAI) 

I’LACC  LOT  P  0 1  N  T  E  R  1  i\j  m  paw  LSI 

D5420000 

jy  #  n;<  #  y  ^  ft  $  ft  ft  ft  #  $  »;<  #  j;<  #  ft  ft  *  $  $  ^  $  alt  ijc  *t  #  «  »*c  4  j;c  #  ^  #  4  $  #  $  £  >*  *  ft  ft  >;«  ft  j;t  ft  ft  >,‘(  ft  ft  ^  ft  ft  ft  *  *  #  #  «  << 

05440000 

ft 

05450000 

*  THE  FOLLOWING  SECTION  OH  rnnp  GETS  CORE  FOR  AMO  OPENS  THE  JiihLiB  # 

0  54  ft  0000 

STEPLIR,  AND/OR  FETCH  OCR'S  AS  NECESSARY 

055000 1 7 

* 

ft 

05520000 

ft  >i<  #  >jc  *  ft  ft  ft  #  ft  #  $  >!<  #  #  >;<  Jjojc  #  #  #  >|t  ft  ft  5^  #  >;c  ft  >;:  >;<  #  jJc  j;c  ft  ft  ft  s:<  ft  ft  ft  ft  ft  ft  ft  j,*  ft  ft  s;t  ft  ft  >;< >;t  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  v  >*  ft  ft 

05540000 

TM 

SCTSSTAT , X  '  04  • 

IS  PROTECT  KEY  111  HE  ZERO 

CH  17 

0554501 7 

HO 

BYPASS 

YE  ',  IGNORE  JOBLIH  AMI)  FETCH 

A  1 A  5  3  1 

055500 ] 9 

4 

OCHS 

CR  17 

05555017 

L 

R 10  *  T  1  H  I  PONT ( R4 ) 

GET  T I OT  ADDRESS 

05560000 

ft  ft  ft  ft  ft  ft  ft  ft  ft  $  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  ft  ft  #  >;<  ft  *<  ft  ft  ft  ft  *  >!t  ft  ft  ft  ft  ft  =  m  >;«  ft  ft  >;«  ft  ft  ft  *  ft  #  ft  >:<  ft  *  ft  ft  ft  ft  j;<  ft  ft  ft  # 

055A1 019 

ft 

SET  UP  ST AF 

ENVIRONMENT 

ft 

05562019 

ft  #  #  ft  ft  ft  #  ft  ft  j,*  ft  >*  ft  ft  ft  ft  ft  #  ft  ft  ft  ft  ft  ft  ft  ft  ft  >;<  >;<  ft  ft  >|c  ft  $  ft  ft  ft  ft  ft  ft  ft  ■:< ft  ft  ft  ft  ft  y  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  31  >;<  y  ft  >!t  ft  ft  ft 

05563019 

LA 

RO, STAELMTH 

f'cT  LMTH  OF  AW  F  A 

A  ]  A  5  3  1 

05564018 

LA 

Rl4, TCORF 

SDH  PIIIlL  NOMHEW  A 

A  1  A  S  3 1 

0  5  5  A  5  0  1  H 

SLL 

R 14  »  24 

MOVE  TO  HI  ORDER  HYTF 

A  1  A  S  3  1 

055AA01H 

(1R 

R0,R14 

LMTH  REG 

A  1  A  S  3  1 

0  5  5  A  7  0  1 H 

GFTMAIN  R  ,  L  V  =  (  0  ) 

05  5 AH  0  1  8 

LR 

R9,R1 

SAVE  HARM  ADI1RS 

A  1  A  A  3 1 

055A901H 

LA 

RO, AGAIN 

n)  STAE  EXIT  ROUTINE 

A  2  9  8  7  1 

05571019 

ST 

R  0 , 0  ( R  9  1 

SAVE  EXIT  RTM  H 

A29H71 

05573019 

ST 

R9,4(R9 1 

SAVE  PA  KM  AREA  h) 

A29871 

055750] 9 

STM 

R4,R11, 16(RV) 

SAVE  REGISTER'S 

A29H71 

05577019 

SR 

R  0  ,  K  0 

ZERO  A  REGISTER 

05580000 

*  THIS  IS  THE 

MACRO  WHICH  SETS  OP 

THE  ENVIRONMENT  EUR  HANDLING 

A 1  A  S  3 1 

05580118 

*  AH F NOS  AFTER 

OPEN  STMTS.  AN  ADDRESS  OF  THE  EXIT  ROUTINE  IS 

A  1  AS  3 1 

0558021 8 

*  (LIVEN  HERE  TO  ROUTE  CONTROL  THROUGH  THE  RETRY  ROUTINE.  A  HARM 

AIAS31 

05580318 

*  AREA  ADDRESS 

IS  GIVRN  WHICH  HAS 

SAVED  REGS  FOR  THF;  RETRY 

A  16531 

05580418 

STAG 

MF=IF, (R9)  ) 

ISSUE  STAE  MACRO 

A29H71 

05580719 

TM 

SCTSTAT2,SCTSTPLB 

IS  STEPLIB  PRESENT 

17052 

05581017 

HZ 

IEFJOHLH 

NO,  CHECK  JOHLIH 

1  7052 

05582017 

I EFSU03?  OS 

OH 

17052 

05583017 

LA 

RO, IFFDCBN-I epochs 

DCB  LENGTH 

17052 

05584017 

LR 

R  4  *  R  0 

SUBTRACT  ONE 

17052 

055850 1 7 

bctr 

R4 1  0 

TO  FXFCUTE  MOVE  INSTRUCTION 

17052 

05586017 

LA 

R 1 4 , TCORF 

SlIBPOUL  NUMBER 

17052 

05587017 

SLL 

R 14, 24 

TO  HIGH-ORDER  BY1F 

17052 

05588017 

OR 

RO,R 14 

OF  LENGTH  FIELD 

17052 

05589017 

4 

05590017 

GETMAIN  R,LV=(0> 

GET  DCB  CORF 

170  52 

05591017 

4 

05592017 

LR 

R  3  ,  R  1 

A DDR  Tn  DCB  BASE  REGISTER 

1  705? 

05593017 

EX 

R 4, MOVE  OCR 

MOVE  REMOTE  DCB  TO  GOTTEN  CORE 

1705? 

05594017 

MVC 

DCKDDWAM.STEPU  B 

PUT  STEPLIB  DDNAMF  INTO  DCB17052 

05595017 

It 

IFFJSOPE 

OPFM  STEPLIB  J)C  H 

1  7052 

0559A01? 

iefjohlh  TM 

JCTJSTAT ,JOBL I B 

WAS  JUBLIB  SPECIFIED  IN 

17052 

O56OA0 17 

4 

JOB 

05620000 

BZ 

I  EFS0030 

NO,  CHFCK  FOR  FETCH 

0  5640000 

LA 

RO, IFFDCBN-I FFOCBS 

NO.  LENGTH  OF  OCR. 

CR  1  7 

05 A 8 001 7 

LR 

R4,R0 

I.FNGTH  OF  DCB  -  1 

05720000 

RCTR 

R4,0 

TO  FXFCUTF 

0 5740000 

LA 

R14, TCORF 

SlIHPOn:  MIJMHFR 

0  5  7  A  00  0  0 

SLL 

R 14, 24 

TO  HIGH  ORDER  BYTF 

0  5  78  0000 

OR 

RO ,  R  14 

OF  length  field 

05800000 
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fi  F  T  M  A  I  M  R,!_V=|OI 

GFTMAIM  FDR  ITCH 

05820000 

LR 

R3,R1 

ADHRFSS  OP  RFMflTF  OCR 

05840000 

FX 

R  4  ,  Mil  V  F  DC  H 

MOVE  ITCH  TP  GPTTFN  CORF 

05860000 

MVC 

nchrmMAM  (  h  ) ,  T I  hfddnm 

PUT  THF  DONAME  IN  THF  OCH 

05880000 

*  THF  F  X  I  T  LIST  CODE  USED  FOR  213  AH- 

IMPS  HAS  HF  EN  RFMDVFD  FROM 

A  1 653 1 

05890018 

a  THIS  MODULE. 

IT  IS  MP  LPNGFK  NEEDED 

NOW  THAT  A  STAE  ENVIRON- 

A 1 6  53  1 

05900018 

a  MPNT  has  HEFIv 

1  PSTAHLISHFO  THE  OPEN  STMT  IS  CHANGED  SUCH  THAT 

A 1 653 1 

05910018 

a  IT  MO  longer 

ADDRESSES  THF  FXIT  LIST 

A  1 6  53  1 

05920018 

I FFJSI1PF 

LR 

R  1 ,  R  2 

ALLOCATE  PARMLIST 

A 1 653 1 

05931)018 

STM 

R2,R3,8(R9) 

A29R71 

05960019 

M  V  I 

0  (  R  1  )  ,  X  '  8  0  ' 

INDICATE  END  OF  LIST 

06000000 

UPFN  1 

( 3 )  , INPUT  )  |MF= <  F  ,  <  1  )  ) 

OPEN  THF  OCR 

06020000 

TM 

DCRDFLGS  ,  X  •  10' 

OP F N  SUCESSEIIL 

A  1 653 1 

06040018 

H7. 

I FFSD33A 

BRANCH  mo 

A16531 

06060018 

ST 

R3,  LCTJIIHLH 

SAVF  JDBLIfi  OCH  POINTER 

06080000 

TM 

JCT  .1ST  AT  ,  JfIBL  I  H 

WAS  JOBLIP  SPECIFIED 

17052 

06086017 

HZ 

I  EFSD030 

17052 

06092017 

IEPSD023 

SR 

R0,R0 

ZERO  A  REGISTER 

06100000 

I  FFSD025 

IC 

RO, T IPFLNGH 

06120000 

LTR 

R  0  ,  r  n 

ANY  MORE  ENTRIES  ? 

06140000 

BZ 

I  FFSD035 

NO,  DON'T  OPEN  FETCH 

06160000 

AS 

R  1 0  ,  R  0 

CHECK  FOR 

06180000 

CLI 

TiriErmNM.X'40' 

CONCATENATION 

06200000 

HF 

1 FFSD025 

IE  CONCATENATED,  GET  NEXT  ENTRY 

06220000 

I  ffsdobo 

TM 

SCTSTYPF  ,  SCTGI1STP 

WAS  FETCH  SPECIFIED  ? 

06240000 

HZ 

IEFSD035 

Nn,  DON'T  OPEN  FETCH 

17052 

06250017 

LA 

RO,  iffdchm-i FFDCRS 

OCH  LENGTH 

06266017 

LR 

R  4  ,  R  () 

DECREMENT  BY  ONE 

06272017 

HCTR 

R4,0 

FOR  EXECUTING  MOVE 

06278017 

LA 

R  14 ,  T  COR E 

SUBPOOL  NUMBER 

06284017 

SLL 

R  14, 24 

TO  HIGH  ORDER  BYTE 

06290017 

flR 

RO , R  14 

OF  LENGTH  FIELD 

06296017 

GETMAIN  R  *  L  V  - ( 0 ) 

GET  DCB  CORE 

06302017 

LR 

R  3  ,  R  1 

PLACE  ADDRESS  IN  R3 

06308017 

STM 

R2,R3,fi(R9) 

A29871 

06311019 

EX 

R  4 , MOVE  DCB 

MOVE  DCB  TO  GOTTEN  CORE 

06314017 

MVC 

DC HD ON AM , T 1 OFODNM 

PLACE  DPNAME  IN  DCB 

06320017 

LR 

R  1 ,  R  2 

ADDRESS  OF  REMOTE  LIST 

06350017 

M  V  I 

0  (  R  1  )  , X ' 80 ' 

INDICATE  END  OF  LIST 

06356017 

hpfm  l 

!  I 3)  ,  INPUT ) , M  F  = ( E , ( 1 )) 

OPEN  THE  DCB 

06362017 

TM 

DCROFLGS , X ' 10' 

OPEN  SUCESSEIIL 

A 1 653 1 

0636R018 

HZ 

IEFS0033 

BRANCH  NO 

A16531 

06374018 

ST 

R3, IFF  DC  HAD  OCR 

ADDRESS  IN  PARK  LIST 

1270 

063 7 8019 

H 

I F  F  50035 

17052 

06383017 

I  F  F  S  D  3  3  A 

ns 

OH 

06403017 

TM 

SCTSTAT2.SCTSTPLH 

STFPLIB  PRESENT? 

17052 

06423017 

HZ 

I  FFS00  33 

MO,  JOBLIB 

17052 

06443017 

I  HFSD33H 

ns 

OH 

06463017 

CLC 

T  I  OFODNM ( 8 ) , STFPL IR 

YES,  OOFS  RIO  POINT  Tn 

17052 

06483017 

STFPLIB  ENTRY 

17052 

06503017 

HF 

I  FFS0O33 

YFS,  GET  OIJT 

17052 

06523017 

IC 

RO,TinFLNGH 

NO,  BUMP  TO 

17052 

06543017 

AR 

R  1 0  ,  R  0 

NEXT  ENTRY 

17052 

06563017 

K 

I FFSD33H 

CONTINUE  SEARCH 

17052 

06583017 

A7Z 

FOII 

06587018 

HALS 

R15,0 

A1653 1 

06591018 

USING 

a ,  R  1 3 

A 1 653 1 

06595018 
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L 

R12.STAEREG 

A  1  A  5  3  1 

0 A599D 1 8 

DROP 

R  15 

A  1  A  5  3  1 

0AA03D1R 

1 1  c  !  ki  r. 

t  cecnru'i  *  ^  t n  1  P 

A  L  A  A  3  1 

0  A  A  0  7  f )  1  8 

CH 

RO, TWELVE 

WORK  AREA 

A  1  A  S  3  1 

0  A A  1 10  1  8 

BE 

NO  GO 

BRANCH  Ml) 

A  1 A  5  3  1 

0  A A  15018 

L 

R  9  i  0  (  R  1  ) 

GET  STAFPARM  AODkS 

A  1  A  A  3  1 

OAA1901R 

FREEMAIN  R ,LV*104  ,  A= ( 1  > 

FREE  WKARFA 

A 1 A  5  3  1 

OAA23D18 

B 

PROCESS 

BRANCH  TO  CONTINUE 

A  1  A  5  3  1 

06 A? 70 1 H 

NOfiC) 

LR 

R9,R2 

GET  ST  A  F  PARM  ADDRS 

A  ].  A  5  3  1 

0  A  6  3  l  0  1  8 

procfss 

LM 

R2,R11,8(R9) 

RESTORE  REGISTER'S 

A  2  9  H  7  1 

0 A 64 10  1  9 

I EFSU033 

m 

LCTINTSW.LCTSDOXX  OVERRIDE  USER  PROGRAM  NAME  IN 

1270 

0  6  A  A  3  0  1  9 

*< 

I N  A  TTACH  PARM  L I  ST. 

12  70 

0AA71D19 

LA 

RO, IEFDCBN-I EFDCBS 

LENGTH  OF  OCR 

0  A6 8  0000 

LA 

R4 , T  COR  E 

SIIBPOOL  number 

0 A700000 

SLL 

R4,24 

to  high  rmnER  byte  of 

0  A72  0000 

OR 

RO,  R4 

LENGTH  REGISTER 

0 6740000 

LR 

Rl  ,R3 

ADORFSS  OF  RFMDTF  DCH 

0 A7A000O 

FREEMAIN  R , L  V= ( 0 )  ,  A=  (  1.) 

FRFE  DC B  AND  FXI1  LIST 

0A78O000 

L 

RL, I EFHSADD 

ADDRESS  OF  USER  PARAMETERS 

OAHOonnn 

L 

R4 , 4 ( R 1 ) 

LENGTH  OF  USER  PAR  AMS 

1  8  42  B 

06820017 

LA 

R  0  ,  B  (  P,  4  ) 

)  R42R 

068400 1 7 

LA 

R  4  ,  T  C  0  R  F 

SUBPOOL  NIJMRFR 

06860000 

SLL 

R4,24 

TO  HIGH  ORDFR  BYTF  OF 

06880000 

nR 

R  0 ,  R  4 

LENGTH  REGISTER 

06400000 

FREEMAIN  R,LV=(0)  ,A*( 1  ) 

F  R  F  F  IISFR  PARAM  LIST 

06920000 

LA 

R4 , 8 

G F 1  LENGTH  OF  USER  PARAhS 

06940000 

LA 

R  0  ,  B  (  R  4  ) 

PLUS  R  FOR  GETMAIN 

18428 

0696001 7 

LA 

R 1 , TC0R6 

SUBPOOL  NUMBER 

M2  434 

1/6980018 

SLL 

Rl,24 

TO  HIGH  ORDER  BYTF  OF 

M2  434 

07000018 

OR 

RO ,  R  1 

LENGTH  RFGISTER 

M2  4.34 

07020018 

GETMAIN  R,LV*<0) 

GFTMAJN  FOR  USERS  PARAMS 

07040000 

ST 

Rl, I EFHSADD 

SAVE  MFW  AOnRFSS  OF  IISFR 

PARAMS 

07060000 

ST 

R4 , 4 ( 0 , R 1 ) 

LENGTH  TO  LIST 

M?  43  4 

0708001.8 

LA 

R0»6(0,R1 )  PLACE  ADORFSS  OF  LENGTH  FIELD 

23021 

07100018 

ST 

R  0 , 0  (  0  ,  R 1 ) 

IN  THF  GOTTEN  LIST  AND 

07120000 

01 

0  (  R 1  )  ,  1 2  fl 

SET  HI -ITRDFP.  BIT  TO  1 

07140000 

M  VC 

P ( fl ,R 1 ) ,T 1 OEDDNM  MOVE  IN  DDMAME 

1842B 

07180017 

I  EFSD035 

ECU) 

>K 

07220000 

*  FREE  THE 

STAE  PARMAREA  GOTTEN  FOR 

THE  RETRY 

A27A79 

0722201.9 

LA 

RO, STAELNTH 

GET  PARM  LENGTH 

A  2  7  A  7  9 

07224019 

LA 

R 1 4 , TCOR  F 

SUBPOOL  NUMBER 

A27A79 

07226019 

SLL 

R 14 , 24 

MOVE  Tn  HI  ORDER  BYTE 

A  2  7  A  7  9 

07228019 

rm 

RO,R 14 

LENGTH  REGISTER 

A  2  7  A  7  9 

07230019 

FREEMAIN  R,LV=(0> ,A=(R9) 

FREE  THE  ARF A 

A27679 

07232019 

BYPASS 

EOU 

A  1 6  5  3  ). 

07236019 

L 

R4» I F  Is  TCHAD 

GET  ADDRESS  OF  INITIATOR* 

S  TCB 

07240000 

>* 

IN  R4 

07260000 

XC 

LCTPARMKX4)  ,LCTPARM1  ZERO  FIELD 

1272 

07262019 

TM 

SCTSST  AT ,X • 04 • 

IS  PF.tlTFCT  l  ON  KEY  TO  BE 

CH  C R  1 7 

07264017 

HZ 

I  EFSD040 

NO. 

CR  1  7 

07266017 

M  VC 

LCTPARM 1 ( 1 ) , TCBPKF ( R4  ) 

YFS.SAVF  OLD  PROTECTION 

KF  C  R  1  7 

07268017 

TCBPKF 

EOI) 

2fl 

CR  L7 

07270017 

XC 

TCHPKF ( 1 ,R4 ) ,TCHPKF(R4> 

ZFRn  OUT  PROTECTION  KEY 

IN  C«1  7 

07272017 

I EFSD040 

EOIJ 

Xl 

CR  1 7 

07274017 

L 

R3,  IEFTIOTA 

GET  ADDRESS  OF  TIDT  LIST 

IN  R3 

07280000 

* 

07300000 

XC 

0(4, R3) , T I OTPONT ( R4 ) 

THIS  SERIFS  OF  EXCLUSIVE 

OR  '  S 

07320000 

-90- 


T  I  OTPl'MT  I  4 ,  84  )  .0(83) 
0f*tf<3>  , TIUTPOMT  (K4) 


HACK  THF  job  STFP  A N n 


*  L  n^*^KTinTPnMT(K4)  initiator  tipt  ptrs  into  the 

4  T  I  DT  LIST  AND  THE  INITlATORIC 

*  'C*  «FSPEC HVFLY.  (SFE  ABOVE 

<<  WMFRF  THEY  WERE  SWAPPED  TO 

*  ALLOW  OPEN  T(1  RFFFRENO  F  thf  low 

*  rfstorvh*  ^i!5gs:,-“ 


t  ap-  AL“- 

sJ  Jim  snp  JSC* 1N  lct 

ST  Si’Jp^FrSM  A,)0kFSS  0F  FCR  LIST 

LA  r5;  fmfcb  store  in  parameter  list 

ST  ,  AD0RFSS  (IF  ATTACH  FCR 

LA  raIchCFcJ'  PLALF  ™  Ef'HUST 

ni  mri!?i5h>  PLACE  ,w  FChlist  U7? 

lr  ri.rJ1  T'I4N  nw  nRr>R«  bit  of  list 

*  THIS  ,JR?Fp"AIN  ^LV  =  24,A=,l)fSP-TCnRF  SS  °F  IW"TLIST 

th.s  ,STTHF  macro  which  cancels  THF  STAF  ENVIRONMENT 

LR  SU:UHft3VCN  S"‘5*  TO^P ARAMFTFR  LIST  M6”1 

rr  R15  ■  ADDRESS  of  attach  modul f 

?<  THIS  T  c  tup  CTAC  „„  C'n  T0  ATTACH  MOOHLE 

*  "  VIA  A 1 6531 


*  A  RETURN CORE  in  R  ,  T"  "  WF  ^IF 

;«:sr  ™t  v™  :ssr,TJVfi 


twelve  nc 

STAERFC,  DC 
STAELMTH  E 
CFO  oc 

MAINLRTH  oc 

SIJHLGTH  DC 
I  HERDER  Of. 
H0URS24  OC 
'.TFPLIR  DC 
IEFOMGRV  DC 
SYSCMO  ENQ 
I EF070CH  OC 
I FFSOCBS  DC 
ACS  TAR  TO  OC 
RLANKFW  OC 
IEFMOVEl  M VC 
Clfarcor  XC 
SFTHITS  01 
T  I  (IT  PONT  POO 


(;0|j  . .  *  1  *— c  nr  IKT  ADO 

RALR  R15,0 
USING  M,R15 

DROP  "{g’5™*6"  RE-ESTABLISH  RASEREG 

USING  IFF S0062+2 , R ] 2 
LA  R  1  5  *  4 
LA  R0,A7Z 

HR  R 14 

nc  H'  12  ' 

OC  A { I FFS0062  +  2  ) 

EOU  60 

oc  a(datacfll-ucbob)  W0R°  nf  ZE 

OC  A(L'OATACFLL) 

OC  CL8  1  I  F  FRDFR 1 

OC  F. 86*0000.  1 440  MIN  IM 

OC  CL8..STEPLIB  -  OONAMF  FOR 

OC  V(IEEOMRAW) 

CNQ  (  IEFSOCBS, IFF07OCH,F,2»SYSTEM) ,MF=L 


A  1653 1 
A  16531 
A  16531 
A 1 6531 
A 1653  1 
A 1 6  531 
A  165  3  1 
A 1 653 1 
A 1 65  3 1 
A  1 653 1 


A 1 653 1 
A29R71 

WORD  f)F  ZEROES  FOR  COMPARES 

1272 

1272 

1440  MIN  IM  HUNDREDTH  flF  SEc!^2 


ODMAMF  FOR  OCR 


C  '07' 

C 'SYSIEFSO' 

C ' START ING ' 

C  *  » 

8(0, R4)  , 4 ( R 5  ) 
X0(X0,R1),X0(«1  ) 
JCTRSW2,X'00' 

12 


MINOR  FOR  SYSTEM  TASK 
MAJOR 


MDVF  USER  PARAMS  FROM  BUFFER 
PUT  C/R  BITS  IN  JCT 


1 8428 
1270 
CR17 


W  f 

0  736  0000 

Cl  7  7  O  P  n  a 

0740.0000 

07420000 

1  07440000 
07460000 

2  075400)9 
2  07620019 
2  07700019 
2  07780019 

07860019 
07960000 
07980000 
08000000 
08020000 
2  08040019 
08060000 
08080000 
08180000 
08200000 
1  08206018 
I  08212018 
08220000 
08240000 
08260000 
l  08261018 
•  08262018 
■  08263018 
.  082640 18 
08265018 
08266018 
08267018 

08268  0  1R 
08  2  6901 R 
08270018 
08271018 
08272018 
OR273018 
08274018 
08277019 
08280000 
08282019 
08284019 
08286019 
08290018 
03350017 
08360000 
08363019 
08366019 
08369019 
08372019 
08375019 
08380017 
08390019 
08410017 
08420000 


IEF63VCM  nc. 
n-F<;i)ft5v  nc 
IEFSOSTI  or. 
S0614RTE  nc 

sooft?  so  nc 
iFFsnib]  nc 
RESTART  f)C 


V<  IFFSD063  ) 

V(  I FFS0065  ) 

VI  T  FF  Sill  IIO 
V( IEFS0514) 

V(  IEFSD112) 

V(  IFFSllDBl  ) 
Cl_K'  IEERSTRT* 


A  rtnn  rir  r-  t  *  r  . ,  •  ,  .  •  *  ...... 

'  *"•'  1  *»  l  *-nyf\  I  |  |  •  y  MI'l 

T  1  OT  WR  J  T F  RIIH7JMF. 

I.  INKAGF  m  ICTSniM 

STEP  NAMF  FDR  RESTARTING  STFP 


*  *  *  *  *  *  *  *  FNO/neO  FOR  DIRECT  SYSOIIT  CONTROL  HI. TICKS  (OSflCH) 

ns  nr.  hmo  eimi.1 

*•  *  eno/iifo  o  and  r  names 


(  IFFSQCHS.nsnc.HMOR,S,  05,  SYSTEM)  ,MF  =  L 


*  OS  IMG  MAJOR  NAME  IN  FNO  1 SYSCMO' 

nsncBNOR  nc  C'dsocb'  r  -  minor  namf 

it 


CR  17 

08440000 
08460000 
l)H4H(l(10C) 
08 48  50 1  7 

11404 

0R49CHT1  4 

1  199 

08490  fl  9 

099 

0849 1419 

099 

08492 1 1 9 

(.199 

08492819 

f)99 

0849351 9 

099 

08494219 

(.199 

08494919 

099 

08495619 

099 

08496319 

099 

08497019 

099 

08497719 

MO  VP  DC  K 

M  VC 

TCDHE 

EOU 

NO 

EOll 

N 1 

EOU 

M2 

EOu 

M3 

FOll 

N4 

E0(| 

N7 

EOU 

MR 

EOU 

EIGHT 

EOU 

NC 

EOU 

N72 

EOU 

XI 04 

EOU 

M2  5  5 

EOU 

RSTRTCK 

OC 

osnMsr; 

OC 

PERIOD 

FOIJ 

COMMA 

EOU 

J08LI8 

EOU 

TCBJDBL 

EOU 

XO 

FOU 

XI 

EOU 

X3 

EOU 

X4 

EOU 

X7 

EOU 

XR 

EOU 

X24 

EOIJ 

X96 

EOU 

X1R4 

EOU 

X2  5  6 

EOU 

X256 

EOIJ 

BLANK 

EOU 

I ELRTNCn 

EOU 

NOS  I  OT S 

EOU 

hmerec 

FOU 

K  EA  DCODF 

EOU 

MAINIJCB 

EOU 

POOL  246 

EOU 

R TMC0DE4 

EOU 

ID FLAG 

EOU 

0(0, R3), IFFDCRS 
253 
0 
1 
2 
.3 
4 
7 
H 
fl 

12 
72 
1 04 
255 

CL8  '  I EFDSDRP 1 
CIFF387I  DIRECT 
C.  » 

c,  • 

X  '  RO' 

40 

0 

1 

3 

A 

7 

fl 

24 
96 
1 H4 

255 

256 
C  '  ' 

2 

X  '00  ' 

X  '  0 1  ' 

X  '  0  4  ' 

X'FF  ' 

246 
X  '  04  ' 

X  '81  ' 


MOVE  I  If,  8  TO  GUTTN  CORE 


SYSOIIT®  • 


01 SPIACFMEMT 


USED  IN  MASK 


099  08498419 
08500000 
08520000 
099  08521019 
099  08522019 
099  08523019 
099  08524019 
099  08525019 
099  08526019 
099  08627019 
099  08528019 
099  08529019 
099  08530019 
099  08531019 
099  08532019 
09V  08533019 
099  08534019 
099  08535019 
099  OR 5 360 1 9 
OR  540000 
08560000 
T272  08560119 
1272  08560219 
1272  08560319 
1272  08560419 
1272  08560519 
1272  08560619 
1272  08560719 
1272  08560819 
1272  08560919 
1272  08561019 
1272  08561  1  19 
1272  08561219 
1272  08561319 
1272  08561419 
1272  08561519 
1272  08561619 
1272  08561719 
1272  08561819 
1272  08561919 
1272  08562019 
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SPUIlGR  AH 

poll 

X  1 1)4  1 

VERB 

CMDF  FDR  STARTFI)  PROGRAM 

1277 

ir.iii  m 

FOU 

1  2 

T 1 1  IT 

DISPLACEMENT  IN  TCB 

1277 

TCH.ISCh 

F  01 1 

180 

12  7? 

FJFCT 

1  EPOCHS 

ns 

OF 

DCB  nSMRGaPU 

,MACHR  =  |- 

FJFCT 

I F  F  OC  HM 

l-QII 

mcbu 

1 )  S  U  R  G  = 

(PU.XE) 

FJFCT 

IFFCSCB 

DSFCT 

I F  F  C  H  A |M 

r-  JFCT 

I  F  FOMNGR 

OMCAP  Foil  IDPARAMS+74 
l.lfiCT 

i\t  >;c  )\i  i;t  y(* >;« »;<  ^  >|t  >;c  :;t  j;t  >;<  >fc  »;<  ft  jjc  ft  ft  ft  ft  ft  ft  ft  ft  ft  >;c  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  $  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 
ft  A-  ft  A'  ft  ft  ft  ft  V  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  >:<  ft  ft  ft  ft  ajc  ft  ft  ij<  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  j}c  ft 


PTH  IN  OMPA  TO  TRK  STACK  INFO 


THP  FOLLOWING  RFPRFSFNTS  A  BLOCK  (IF  MAIM  STURAGE  WHICH 
EXISTS  WHII.F  THF  JOB  STFP  IIS  HUMMING.  IT  IS  GOTTEN 
BY  THIS  Mnnill.F  AMI)  IS  FHFFO  HY  IFFSD164 


« 

ft 

I  ffparam 
I  FFUSAOI) 
I  FFI-CHLA 
IFFHFMLS 
I  FFI.CT AO 
I  EFTCBAD 
IFFTIflTA 
I  EFOCRAD 
IFFRCHLT 
IEFAFCR 
IEFPLFNI) 
IEFPSIZE 


DSFCT 

OS 


F 

F 

F 

F 

F 

F 

F 

2F 

F 

>:< 


ADDRFSS 

AOnHFSS 

ADDRESS 

ADDRESS 

ADDRFSS 

ADDHFS  .i 

ADDHFSS 

FCH  LIST 

ATA 


USER  PAHAMFTFRS 
FCH  LIST 
SIIPFH  VI  SDR 
LCT 

INITIATOR'S 


I.  LIST 


TCB 


(IF 

OF 


T  t  (IT 
OCR 


os 

OS 

ns 
os 
os 
ns 

DS 

ns 

EOII 
FOU 
FJFCT 
IF7.ATTCH 

FOU  IFFPSI7.  F+ATLSTSI7 
FJFCT 

if  x1*  >|i  *  4  *  #  i|(  i|i  ifc  $  $  #  i!t  i>  4 »)( 4  :)t  $  ft  ft  ft  ft  ft  ft  ft  :;t  ft  ft  ft  ft  >}(  >!t  ft  jjt  ft  ft  ft  ft  *  ft  ft  v  ft  *  ft ft A  3^  ft  *  ft  ft  ft  ft  *  ft  ft  V  £  ft  ft  V  ft  ft  ft 

*  ft 

1'  THF  FOLLOW  I NG  REPR  FSFNTS  A  BLOCK  OF  MAIM  STORAGE  WHICH  IS 

ALLOCATED  FOR  THF  LIFE  (IF 

*  OF  THIS  INITIATOR.  IT  CONTAINS: 


iffplfno-ihfparam 


LISTSIZE 


1770 


1270 
12  TO 

1270 
12  70 


(  I ) 
(2) 

(3) 


THF  LCT  (LINKAGE  CONTROL  TABLE) 

A  2  LFVFL  REGISTER  SAVF  AREA  FOLLOWFO 
THE  01IFIIF  MANAGER  PARAMETER  ARFA 
AM  ALTHRNATF  OllEIIF  MANAGER  PARAMETER  AR. 


>> 

* 
ft 

5*e  sje  j}c  j;c  >;s  jfic  #  *  #  Jlolc  %  *  *  #  ^  >;«  « >,■{  j5c»;<  %  »|t  #  At  ❖  *  *  #  ^  %  #  >1*  >1<  #  &  *  *  #  »5«  *>»  ^  ^  ^  ?»*  >, 

IFFLOT  OSECT 
IFFALLCT 

FJFCT 

LC  THAT  MM  DS  F  *««>n>!<Tn  BF  ADDFD  TO  LCT 

LCTSDOMP  DS  F  ^.k^^^TO  BE  AODED  TO  LCT  (VMS  ONLY)  POINTER 

*  SYSDIJT  QUEUE  MANAGER  PAR AMETFR  AREA 


>li 

* 

* 

!  ■■  » 

* 

,  # 

•  i-. 


TO 


nnsftpUR 
0BEB2219 
0BS62A19 
OR  S A 30  l  7 
ORSflOOnO 
oBRonnoo 

OR  6 1 001 7 
00640000 
OR  660000 
0  R  6  7  O  0  1  7 
nP6floooo 
08700000 
08710017 
0  fl  7  ?  0  0  0  0 
08740000 
08  7S00L7 
08760000 
08  7800(1 0 
OHHOOOOO 
08820000 
08840000 
08860000 
08880000 
08900000 
08920000 
08940000 
08960000 
08980000 
09000000 
09020000 
09030019 
09040000 
09060000 
09070019 
09080019 
09090019 
09100019 
09105019 
09110017 
09120000 
09140000 
09160000 
09180000 
09200000 
09220000 
09240000 
09260000 
09280000 
09300000 
09320000 
09340000 
09360000 
09380000 
09390017 
09400000 
09420000 
09440000 
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LCTRTRN 

DS 

f  ,f  ^  *  *  *  j  n 

HE 

ADDED  Til  LCT  (VMS  (INLY)  INITIATOR'S 

09460000 

* 

RE 

TUR 

N  POINT 

04480000 

LC  T 1  NT  SW 

DS 

oc 

INITIATOR  INTERNAL  SNITCHES 

1272 

094fl?019 

KTIUICn 

cnn 

1  r.  0 

SiiiM  I  »J  Hi  FKOKI.HY  IINI- 

12/2 

09484019 

LCTSDOXX 

EOU 

32 

ATTACH  IEFSOOXX 

1272 

0948601 9 

ICTMINRfi 

EDO 

16 

JDH  FLUSH  -  US F  M I M P A R 

1272 

094  8fl  0 1 9 

LCT  ST  ART 

EOU 

o 

TASKWAHE  not  on  command 

12  72 

0949001 9 

LCTSTDP 

EOU 

4 

INITIATOR  INTERNAL  STOP 

12  72 

09492019 

LCTCSCB 

DS 

F  0*OcOcOcOcTf) 

BE 

ADDED  TO  LC  T ( VMS  ONLY)  INITIATOR  CSCB 

09900000 

>x 

ADDRESS 

09920000 

LCTTMWRK 

DS 

4  F  o<ocO<o><<TO 

BE 

ADDED  TO  LC T 1  VMS  ONLY)  TIMER  WORK  AREA 

09540000 

LCTJOBLB 

DS 

F 

HE 

ADDED  TO  LC  T  ( VMS  ONLY)  JI'BLIR  OCR  PTR 

09 5600 00 

LCTATLST 

DS 

F  4>K««*Tf] 

HE 

ADDED  TD  LCTiVMS  ONLY)  POINTER  TO 

09580000 

* 

ALLOCATE/TERM1 NATE  PARAMETER  LISTS 

09600000 

REGSAVE 

DS 

36F 

RFGISTFR  AVE  AREA 

09620000 

OMGR1 

DS 

9F 

QUEUE  MANAGER  PARAMETER  AREA 

09640000 

QMGR2 

DS 

9F 

ALTERNATE  QUEUE  MANAGER  AREA 

09660000 

TRSTKINE 

DS 

2F 

NEEDED  FDR  TRACK  STACKING  AND  QUEUE 

09680000 

>K 

BREAK  INFORMATION.  1ST  BYTE  TO  CON¬ 

09700000 

# 

TAIN  NUMBER  OF  BUFFERS,  NEXT  3  BYTES 

09720000 

0> 

FDR  STACK  ADDR,  NEXT  4  BYTES  FOR 

09740000 

Oc 

OIJEUE  BREAK  INFORMATION 

0976D000 

ECBLIST 

DS 

IF 

PTR 

DC  42 

09764017 

LCTI DENT 

DS 

2F 

IDENTIFIER 

DC  42 

09768017 

LCTFORCE 

DS 

CLB 

POSSIBLE  FORCE  VALUES 

1241 

09770018 

LCTLIMIT 

DS 

C 

LIMIT  VALUE 

1241 

09  7720 1 H 

FRCPRTY 

DS 

C 

FORCE  PR  TY  HOLDER 

1241 

09774018 

INITPRTY 

DS 

C 

INITIATOR'S  PRTY 

1241 

09776018 

*  these  FIELOS  ARE  needed 

FUR  L-SHAPE/INIT  MERGE  # 

1272 

09776219 

DS 

OF 

12  72 

09776419 

lctdpswi 

ns 

OC 

INITIATOR  OPTIONS  BYTE  1 

1272 

09776619 

lctpkeyf 

EOU 

12fl 

DDNT  GET  PROTECT  KEY 

1272 

09776819 

LCTDWFF 

EOU 

64 

HUNT  PROCESS  DEDICATED  WORKF 

1272 

09 7 7 70 1 9 

LCTSTMDF 

EOU 

32 

DONT  PROCESS  STDP/MODIEY 

1272 

09777219 

lctminpf 

EOU 

16 

GET  REGION  SIZE  SPECIFIED 

1272 

09777419 

LCTCANF 

EOU 

fi 

ALLOW  CANCEL  ONLY  AT  ALLOC 

1272 

09777619 

LCTONEJF 

EOU 

4 

PROCESS  ONLY  ONE  JOB 

1272 

09777819 

LCTICMDF 

EOU 

2 

DONT  PROCESS  INITIATOR  CMOS 

1272 

0977R019 

LCTEXIT 

ITS 

F 

ADDRESS  INITIATOR  EXIT  LIST 

1272 

09778219 

LCTDPSW2 

DS 

OC 

INITIATOR  OPTIONS  BYTE  2 

1272 

09778419 

LCTT1MEF 

FOU 

128 

DONT  TIME  THIS  jnB 

1272 

09778619 

LCTCRF 

EOU 

64 

OCINT  ALLOW  CHECKPT /RESTART 

1272 

09778819 

LCTOSDF 

EOU 

32 

OllNT  PROCESS  DSO 

1272 

09779019 

LCTINTHO 

EOU 

16 

INIT  IN  HIERARCHY  ZERO 

1272 

09779219 

LCT1NTH1 

EOU 

8 

INIT  IN  HIERARCHY  nNE 

1272 

09779419 

LCTCDM 

DS 

F 

COMMUNICATIONS  PARM  AREA  PTR 

1272 

09779619 

LCTJSCH 

DS 

F 

ADDRESS  OF  JSCB 

1272 

09779819 

IEFEND 

EOU 

* 

END  OF  L I FE-DE-TASK  BLOCK 

09780000 

EJECT 

09790017 

I EFJCT 

DSECT 

09800000 

I  EFAJCTB 

09820000 

SMBHOR 

EOU 

SMHMSGLN 

099 

09820519 

HEXOO 

EOU 

X'OO' 

HEX  EQUATE 

09821018 

DECB 

FOU 

8 

NUMERIC  EQUATE 

09822018 

DEO 

EOU 

4 

NUMERIC  EQUATE 

09823018 

DECO 

EOU 

0 

NUMERIC  EQUATE 

09824018 

HEXRO 

FOU 

X  '  80  ' 

HEX  EQUATE 

09825018 
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r-  .IFCT 

09 H  0)01 7 

t  t-F  SC  1 

IiSI  CT 

09H4onnn 

I  FPA  SCTH 

r.n-r.T 

09060000 
iivh  mn  i  t 

I  FF1  [  117 

OS'-C  1 

OHRPOOOO 

1  FFT  I  'l  l  1 

09400000 

il  Ch 

n  S  f  c  T 

177? 

INRIUII  1  9 

!  F  Fllf.hllb 

127? 

099060  1 9 

FJHCT 

09910017 

sun 

DSFCT 

177? 

099 15019 

IF  FAS  [ITT 

I  ?7? 

099200  I  9 

1  J  F  C  T 

099  7  SO  1  9 

I  F? JSCK 

I  ?  7? 

09930019 

WT  PChPTw. 

FOll 

.ischwtp- 

IF7.ISCH 

09935019 

F  J  PC  T 

09941017 

GFTPTWT 

DSFCT 

09942017 

GPS  17  F  A 

ns 

LF 

CONTAJAi  THF  AODRFSS  flF  THF 

RFGIOM 

SI7F  LI 

1.  S17 

09943017 

rip  a  i  idl  r 

ns 

IF 

C 1 1 M  r  A  I  W  THH  AllDR  OF  AOUR  1. 

1ST  FOR 

THF  HIF 

LS  17 

099440] 7 

GPO.Iinp 

ITS 

X  'O' 

CONTAIN  HO  Til  I  iM  1 1 1  C  A  T  F  UNCONDITIONAL  RFGII 

LSI  7 

09943017 

GPSHKP 

ns 

X  'O' 

Contain  sohpoml  ?4V  or  ?4 6 

LSI  7 

0994S0 1 7 

ns 

H  •  0  ' 

1.  S  1 7 

09947017 

gph  i  arc o 

US 

OF 

contains  on 

LS17 

0994H0  17 

GP A  POHO 

ns 

IF 

CONTAINS  AODRFSS (SPECIFIC) 

,  7 FR 0 ( NON—  SP F C 

LSI  7 

099490 1 7 

GPH  I  ARC  1 

ns 

OF 

CONTAINS  01 

L  S  1  7 

099300 1 7 

GPADOHl 

ns 

IF 

C I1M  T  A  INS  AODRFSS  I  SPFC  I  F  IC  ) 

,/FKI)(NOM-SPFC 

LSI  7 

09951017 

GPS  I  7FHO 

ns 

IF 

SI  7  F  ITF  HO 

LS17 

099  520  t  7 

GPS  I  ?FH1 

ns 

IF 

N I 7  F  OF  Hi 

LS17 

09953017 

GPS  I  7FPP 

ns 

IF 

SI7F  I1F  RFGIOM  FOP  P/P 

177? 

099  533  19 

GPSI7FT 

ns 

IF 

SI/F  OF  RFGIOM  FOR  TFRMI MAT  F 

1772 

099  5  3519 

GP A  DONOR 

OS 

IF 

ORGIMAL  AnOWFSS 

OR  17 

09954017 

GPMJMPAR 

ns 

IF 

24  7  +  MINIMUM  WfiGIIIM  SIZF 

Cl?  1  7 

09955017 

I  FFIISOCR 

DSFCT 

09956019 

I  HFOSOCR 

04957019 

FJFCT 

099  5fl0  1  9 

IFFHASFA 

09959019 

1FFWTPCB 

127? 

09959519 

HMD 

09960000 

-95- 


TITLE  ' IEES0263-MS/1  ATTACH  MODULE  • 

1EFSD263  C  SEC  T 

»  M  3  7  6  7 

4  039200-039800  A24HH7 

*  i\  2  9  8  7  i 

*  M 344 1 

4  029210-029220  M0432 

♦  M4()9 

*  MA  1  (ST) 

#  M  ?  ft  9  5 

#  M26  96 

40054021400-021600  1727 

42286024200,024400  18428 

40642  MTSO 

4019400-020200,02 06 00, 027200- 027400* 0352 00- 0354 00, 0362 00,036400  1272 

4037600,040000  1272 

4  M  4  3  7  3 

4027600-027800,034800-035000  M4005 

4  44  4  4  4  4  4  4444  4  4  4  4  4  4  4  4  4  4  4  4  4  4  w  4  4  4  4*4  *  V  4  4  4  4  «4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 4 4  #  **<  4  4  4  4 
4  4 

4  initiator  attach  module  * 

4  4 

44  4  44444  444  444  44  44  4  4  44  4444  4  4  4  4  4  444  444444  44444444  4  4  4  4  4  444  44  4  44  4  4  4  444  4  4  4  4 
4  4 

4  STATUS  -  CHANGE  LEVEL  000  * 

#  * 
4  FUNCTION  -  THE  FUNCTION  OF  IEFSD263  IS 

4 

4  (1)  TO  ATTACH  THE  JOB  STEP.  NOTE  THAT  THIS  INVOLVES 

4  SAVING  THE  CONTENTS  (IF  THE  FIELD  IN  THE  INITIATOR'S 

4  TCB  WHICH  POINTS  10  THE  INITIATOR, S  T I OT ♦  THEM 

4  REPLACING  THAT  FIELD  WITH  THE  POINTER  TO  THE  JOB  STEP 

4  T10T,  THEN  ISSUING  THE  ATTACH,  THEN  PUTTING  THE 

4  POINTER  TO  THE  INITIATOR'S  T I OT  BACK  IN  ITS  TCP. 

4 

4  (2)  TO  DETERMINE  WHETHER  OR  NOT  THE  JOB  STEP  IS  TO  HE 

4  TIMED.  IF  SO  TO  ISSUE  THE  STIMER  MACRO.  IF  NOT  TO 

4  BYPASS  IT. 

4 

4  (3)  TO  ISSUE  A  WAIT  AGAINST  THE  POSTING  OF  A  NORMAL  STEP 

4  TERMINATION  ECH  OR  A  STEP  CANCEL  FCH 

4  4 

4  (A)  TO  INTERFACE  WITH  AHTERM  IE  THE  JOB  STEP  IS  127? 

4  CANCELED  OF  IF  THE  TIME  LIMIT  HAS  EXPIRED  1272 

4  12  72 

4  (5)  TO  DETACH  THE  JOB  STFP  1272 

4  1272 

*  ENTRY  POINT:  IEFS0263  FROM  IEFS0103  4 

4  V 

4  INPUT  -  REGISTER  ONE  POINTING  TO  AN  INPUT  PARAMETER  LIST  CONTAINS  -  4 

4  (  1  )  USER  PARAMS  AODR  4 

*  (2)  ECB  LIST  POINTER  4 

4  (3)  ATTACH  PARAMETER  LIST  A DDR  4 

4  (A)  LCT  POINTER  * 

4  (5)  INITIATOR  TCB  POINTER  4 

4  (6)  TIOT  LIST  POINTER  4 

4  (7)  DC B  AOORESS  1270 


4005A021400-021600 

42286024200,024400 

40642 

4019400-020200,020600,027200-027400,035200-035400,036200,036400 

4037600,040000 


niiuvnm.u 

t  n  m  in  i  ,  i  ft 

nmicii  l  i « 
fionud?  1 1/ 
1111118(16  I  'j 
!HIOH  1  ill’-* 
000H2O1 8 
OOOEAfl  |  8 
00  OH  7  0  I  4 
000880] 9 
lllli  iH90  1  9 
000900]  7* 
0009201 7 
000960] ft 
000960 1 u 
00097 0  I  9 
(10098  0 )  9 
000990 1 9 
no  i  ooooo 
no  1  20('(io 

00 1 40000 
00  1  ftOOOO 

no i 80000 
00200000 
00220000 
00240000 
00260000 
002 80000 
00300000 
00320000 
00340(1(10 
00360000 
003800(10 
00400000 
007,20000 
0044(H)('0 
00460000 
0048000(1 
00600000 
00520000 
0054000(1 
00560000 
00563015 
00566019 
00669019 
00572019 
00575019 
00580000 
00600000 
00620000 
00640000 
0(1660000 
00680000 
00700000 

007200 no 
00740000 
00760019 
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* 

* 

00760000 

*  OUTPUT  ■ 

-  RFG  I 

STFR  (INF  POINTING  TO  THE  INPUT  PARM  LIST  CONTAINING  -  * 

00700000 

** 

1 

1  )  USER  PARAMS  A  DDR 

*> 

00800000 

i 

k  l  l-UH  LIST 

POINTER 

4 

00820000 

( 

3)  ATTACH  PARAMETER  LIST  ADOR 

4 

00840000 

* 

i 

4)  LCT  POINTER 

4 

(JU860000 

* 

( 

si  address  of  parm  area  for  system  tasks. 

1272 

OOSBOO 19 

** 

ZERO  EUR 

NON  SYSTEM  TASKS 

1272 

00890019 

*:< 

( 

6>  tiot  list 

POINTER 

4 

00900000 

( 

7)  DCH  ADORE 

SS 

1270 

00910019 

•K  LCTPARM1-LCTPARM4  OR  THE 

16  BYTE  PARAMETER  AREA  WHEN  THE  LCT 

!S*M4160 

00911019 

*  WWITTFN 

Tn  THE  JOB  OUEUE 

HAS  THE  FOLLOWING  FORMAT  ON  EXIT 

*M4160 

00912019 

*  FROM  IEES0263 

4M4160 

00913019 

*K 

#M4160 

00914019 

*  TCHFLG 

* 

TCT  ADDRESS 

4M4160 

00915019 

T  T 

R  OF  LCT 

*  LCT I  NT SW 

4M2696 

00916019 

#  TCBOSP 

* 

CSC8  ADDRESS 

4M4160 

00917019 

* 

TCBTCC 

(TASK  COMPLETION  CODE) 

*M4160 

00918019 

* 

4M4160 

00919019 

* 

4 

00920000 

*  external  references-  iefsmfat 

smfi 

00940018 

* 

4 

00960000 

*  ex  r t 

IEFSU104 

1272 

00980019 

* 

01000000 

o  TARLES/WORK  ARFAS:  1 NPUT  PARAMETER,  LIFE-OF-TASX  BLOCK 

4 

01020000 

* 

4 

01040000 

*  ATTRIBUTES  - 

REENTRANT 

4 

01060000 

*!» 

4 

01080000 

**  #4  4  4  4  44  *  *  4  444  4  4*44  4  *  4444444*  4  4  4  *  4  4  4  *  4  4  iji  44  *  44  *4  444444444  444444  44  44  4 

01100000 

RO 

eou 

0 

01120000 

R  1 

FOU 

1 

01 140000 

R2 

EOU 

2 

01160000 

R3 

EOU 

3 

01  180000 

R  4 

EOU 

4 

01200000 

R  5 

EOU 

5 

01220000 

R6 

EOU 

6 

01240000 

R  7 

EOU 

7 

01260000 

(8 

EOU 

8 

01280000 

R9 

EOU 

9 

01300000 

RIO 

EOU 

in 

01320000 

R 1  1 

EOU 

n 

01340000 

R 1 2 

EOU 

12 

01360000 

R  1  3 

EOU 

13 

01380000 

R14 

EOU 

14 

01400000 

R 1  5 

EOU 

IS 

01420000 

QO 

EOU 

0 

ZERO  DISPLACEMENT  VALUE 

MP65 

01422018 

CVTPTR 

EOU 

16 

POINTER  TO  CVT 

MP65 

01424018 

CVTDCB 

EOU 

X  >74' 

SYSTEM  FLAGS  BYTE  IN  CVT 

MP65 

01426018 

MP65FLAG 

EOU 

X  '04' 

M65MP  MULTIPROCESSOR  SYSTEM 

MP65 

01428018 

STATUS 

EOU 

79 

STATUS  SVC  NUMBER 

MP65 

01430018 

STATFLAG 

EOU 

5 

TCB  PARM  TO  STATUS  SVC 

MP6B 

01432018 

STMCFLAG 

EOU 

X  '02  ' 

STEP  MUST  COMPLETE  BIT 

MP6  5 

01434018 

BALR 

R  12,0 

SET  BASE  REGISTER 

01440000 

USING 

o.R12 

01460000 

USING 

I E  F  PAR AM , R8 

01480000 

US  ING 

IEELOT  *R4 

01500000 

USING 

GETPTWT , R 1 1 

1272 

01506019 

*  * 


} 


I 


-97- 

USING  ATTCHLST ,  R3 

*  . ' 

* 

* 

* 


THIS  SECTION  OF  CODE  IS  FOR  PROVIDING  A  METHOD  OF  IDENTIFYING 
THIS  MODULE  IN  A  MEMORY  DUMP 


B 

FIRST 

OC 

X'CCCC  ' 

DC 

C 1 I EFSD263 ' 

OC 

X '02231970' 

OC 

X'CCCC' 

FIRST  DS 

OH 

* 

EJECT 

LR 

L 


R8*R1 

R9, ALLCORE 


* 

» 

* 


GETMAIN  EC  » L V= ( 9 ) ,  As  A 
LM  R3,R4, IEFREMLS 

L  R  1 1 » LC  TP ARM3 

LA  RlItXO(Rll) 

LTR  R  1 1  ,  R 1  l 

RE  SD06305 


M3441 


SAVE  REGISTER  ONE 

PURGE  MODULES  FROM  SUBPOOL  252  M3441 

WHICH  HAVE  A  USER  COUNT  OF  ZERO 

ADDRESSABILITY  FOR  ATTACH  LIST 
AND  THE  LCT 
ADDRESS  OE  GWT 
ZERO  HIGH  OROFR  BYT  F 
DOES  GWT  EXIST 
BRANCH  GWT  DOES  NOT  EXIST 


ccrt'n^^T^r11^  0PENS  F0R  JOBLIBtSTEPLIH  Or'eeTCh'anD 
SETS  UP  A  STAE  ENVIRONMENT  TO  PREVENT  A  213  ABFND  IN  OPEN 

rnop  iBKRIcGiNG  DnWN  ™E  ,NITIATnK*  OPEN  LEAVES  BEHIND  SOME 

NDRMAM  v  «nr  crfr?  ™AT  W0ULn  N°T  MATTER  IF  A  TASK  ABENDS 

NORMALLY,  BUT  SINCE  WE  ARE  INTERCEPTING  THE  213  WE  MUST 

. TT1NG  fl  Ni:M  PARTITION. _ 

GET  INI TI ATOR • S  TCB.  "" - 

BUMP  TO  THE  TJUT. 

FIXED  INITIATOR? 

— BRA N C H  TO  KEEP  CURRENT  REGION. 


SD06355 


SD06305 


L 

L 

CLI 

M _ 

R 14, LCTTCBAD 
R14, 12<  R14) 

0 ( R 14 ) , C ' F ' 
_S_0.06  355 

LA 

RO, 252 

SLL 

R0,24 

SR 

R1.R1 

FREEMAIN  R  ,LV  =  (0) ,a  = 

LR 

R1.R11 

GETMAIN  ,MFs (6 ♦ ( 1 ) ) 

L 

RO.GPSIZET 

LTR 

RO,RO 

BNE 

S006305 

LR 

R1,R11 

DROP 

R 1 1 

L 

R0,LCTPARM4 

FREEMAIN  R  , L V= ( 0 1 , A  = 

XC 

LCTPARM3+X 1 ( X3 

EOU 

L 

R 13 , LCTCMCBA 

LM 

ro,rx,ieftcbad 

L 

R15, SMFAT 

BALR 

R 14,R  15 

LTR 

R9,R15 

M3441 
M3441 
12  72 
1272 
1272 
1272 
A29871 
A  2  9  8  7 1 
A29871 
A29B71 
A29871 
A29B71 


0IB12019 
C:  107  uniM  i 
01 940000 

oi  9(Soono 
01 Bhooun 

oi  onoooo 
01620000 
01640000 
01660000 
016R001 9 
01700000 
01720000 
01740000 
01760000 
0  1  7  fl  0  0  0  0 
OIROOOOO 
01820019 
01840019 
01860000 
01880019 
019000)9 
01 940019 
01960019 
01980019 
02020019 
02023019 
02026019 
02029019 
02032019 
02039029 
02038019 


SUBPOOL  ID  TO  HI— ORD  BYTE 
LENGTH  AND  ADDR  BOTH  7.  FRn 
INDICATES  FREE  ENTIRF  SP 
1)  FREE  SUBPOOL  252 

PARM  LIST  REPLACE  PART 
REPLACE  PARTITION 
REGION  SIZE  FOR  TERMINATE 
TEST  FOR  NEW  REGION 
KEEP  GWT  FOR  TERMINATE 
ADDRESS  OF  GWT  TO  BE  FREED, 

LOAD  SUBPOOL  +  LENGTH 
II  FREE  ITS  CORE 

,LCTPARM3+X1  ZERO  PTR  TO  GWT 

PROVIDE  SAVE  AREA 
TCB  ADDRESS  IN  REG  0,  PTR  TO 
TIOT  PTR  IN  REG  ONE 
* 

GO  TO  SMF  TO  BUILD  TCTJOT 
TF  THERE  WAS  SMF  PRESENT 
FOR  THIS  JOB,  R9  NDW 


A29B71 
A29871 
A29871 
A29B71 
1272 
CR 1  7 
1272 
1272 
1272 

M  4 1 6  0 
CR  l  7 
CR  1  7 
1272 
C  R  1 7 
SMF) 
M  344 1 

SMF  1 
SMF  1 
SMF  1 
SMF  1 


02041019 

02044019 

02047019 

02050019 

02060019 

02100017 

02110019 

02120019 

02130019 

02160019 

02180017 

02220017 

02240019 

02260017 

02268018 

02276019 

02284019 

02292018 

02300018 

02308018 

02316018 
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>:< 

POINTS  Tn  TCT 

SMF1 

USING 

SMETCT.W9 

n/ 

.5063007 

ST 

ro.tctwlmt 

ST  JOB  WAIT  LIMIT  IN  RO 

SMF1 

M  VC 

TCTSWI 1 ) .LCTTMWHK+8  mo VF  INDICATOR  SET  BY 

SMF1 

* 

I E F SO  1 6 2  OF  WHETHFR 

SMF  1 

TIME  LIMIT  IS  JOB 

OR 

SMF1 

STFP 

SMF  1 

$063007 

EOU 

4 

# 

1. 

R  7, I EEUSAOU 

MOVE  USER  PARAMETER  AREA 

FROM 

L 

R4.4IR7) 

SUBPOOL  253  TO  SUBPOOL 

0 

18428 

LA 

R4.8 (R4 ) 

18428 

LR 

R0.R4 

GETMA1N  RtLV-(O) 

CORE  EROM  SUBPOOL  ZERO 

LR 

R  0 .  R  4 

RESTORE  LENGTH  VALUE 

M409 

HCTR 

R  4 ,  R  0 

SUBTRACT  ONE  EROM  R4 

EX 

R4,  I  EEtJSEP 

MOVE  USER  PARM 

LA 

R4.6I0.R1) 

SET  UP  USER  PARM 

ST 

H4.OIO.Rl ) 

AREA 

01 

0 ( R 1  )  ,128 

SFT  HIGH  OR  OF  R  HIT  TO 

OMF 

ST 

R 1 , I EFUSAOO 

UPDATE  USER  PARM  AnnR 

1 

.R  R  1 , R 7 

LA  AO  ADOR  DF  USER  PARM  AREA 

L 

R7, SPOOL 253 

FREE  SUBPOOL  253 

M  344 1 

OR 

R0.R7 

FREEMAIN  R  »  L  V= ( 0 )  . 

A= 1 1 )  FREE  USER  PARM  IN  253 

SR 

R9.R9 

CLEAR  REG 

1241 

LH 

RO.ATOPMOD 

LOAD  DPMf)D 

1270 

LTR 

RO.RO 

IS  DPMOO  NEGATIVE 

1241 

BL 

S006310 

YES  ?  BRANCH  AND  CONTINUE 

1241 

CHAP 

(0) 

NO,  CHAP  I N I T  IIP 

1241 

LNR 

R9.R0 

LOAD  NEGATIVE  VALUE  IN  REG 

TO 

1241 

SAVE  ACROSS  ATTACH 

1241 

SD06310 

LM 

R1 ,R6, I EFPARAM  PARMS  INTO  RFGS 

127? 

L 

R7.TCHT  I OT ( 0 . 

R 5 )  SAVE  THE  POINTER  TO  THE 

INITIATOR'S  T I (IT 

MVC 

TCBTI0T(4,R5) 

,0(R6)  STORE  PTR  TO  THE  JOB  STEP 

HOT 

INTO  INITIATOR'S  TCB  FOR 

ATTACH 

<R6  POINTS  TO  TIOT  LIST) 

SR 

Rt  l.Rll 

CLEAR  REGISTER 

TM 

8(R3 ) fX  *60' 

N  )»  BRANCH 

BC 

8, AGG  1 

L 

R11.8IR3) 

SET  R 1 1  NEGATIVE 

XI 

8IR3) , X  *  80  ' 

TURN  OFF  BIT  IN  ATTACH  LIST 

( FCB  ) 

AGG1 

EOU 

$ 

LR 

R15.R3 

ADDRESS  OF  SUPERVISOR 

L  LIST 

DROP 

R3 

M4005 

L 

R3  ,  TCBJBL ( R5 ) 

SAVE  OUR  J0BLI6  PTR 

M4005 

MVC 

TCB JBL ( X4 ,R  5 ) 

.LCTJOBLB  PUT  NEW  PTR  FOR  ATTACH 

M4005 

*  * 

*  SINCE  THIS  MODULE  RESIDES'  IN  THE  LINK  PACK  AREA?  THE  ATTACH  * 

*  PARAMETER  LIST  IS  GOTTEN  IN  IFFS0162  AND  INITIALIZED  IN  * 

*  [EFS0103,  BOTH  OF  WHICH  RUN  IN  THE  INITIATOR  REGION.  THE  * 

*  ADDRESS  OF  THE  COMPLETED  PARM  LIST  IS  PART  OF  THE  INPUT  TO  * 

*  THIS  MODULE.  THE  FIELDS  INITIALIZED  AND  OPTIONS  SELECTED  FOR  * 

<■  THE  SOBTASK  ARE  OUTLINED  HERE.  * 

>*  * 


0232 A OIR 
023320  1 R 
0234001R 
02348018 
02  3560 1 8 
02364018 
02372018 
023800]  8 
0238801B 
02400000 
0242^017 
02441 017 
07 4 6 0000 
024. ,0000 
02490018 
02500000 
02520000 
02540017 
02560000 
07580000 
02600000 
02620000 
02650019 
0?6fl0000 
02700000 
027D2018 
0270401 8 
02706018 
02708018 
02710018 
02712018 
02714018 
02734019 
02800000 
02820000 
02840000 
02860000 
02880000 
02882016 
02884016 
02886016 
02888016 
02890016 
02892016 
02900000 
02900119 
02900219 
02900319 
02900519 
02901019 
02901519 
02902019 
02902519 
02903019 
02903519 
02904019 
02904519 
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*  KEYWORD  SATISFIED 

* 

*  EP 

*  ROLL 

*  dch 

*  ECB 

*  LPMno 

a  dpmod 

a  HlARCHY 

* 


INFORMATION  PROVIDED 

ENTRY  POINT  NAME 
ROLLOUT  CRI TER  IA 

jdhlib  och  address 

ECB  WAITED  ON  BY  INITIATOR 
L  IMI T  PRIORITY 
DISPATCHING  PRIORITY 
hierarchy  information 


*  IN  ADDITION  the  parameter  list  has  been  initialized  to  causf 

*  THE  FOLLOWING  PROCESSING  BY  THE  ATTACH  SERVICE  ROOT  IMF. 

a 

a  .  TCB  IS  INITIALIZED  AS  A  JOB  STEP  TCR. 
a 

*  .  THE  JOB  PACK  AREA  OtIFIIE  POINTER  IS  PROPAGATED  FROM  THE 

*  INITIATOR'S  TCB 
a 


*  .  A  72  BYTE  REGISTER  SAVE  ARFA  IS  PROVIDED  FOR  THF 

*  INITIAL  ROUTINE  OF  THE  JOB  STEP 
a 


a 

a 


THE  PROTECT  KEY  IS  PROPAGATED  FROM  THE  INITIATOR'S  TCP 


a 

a 


THE  TASK  IS  SET  TO  ROM  IN  PROBLFM  PROGRAM  MOOF. 


a 


a 

a 


a 

* 

* 

* 

* 

£ 

* 

* 

* 

* 

* 

* 


* 


SUBPnm  n  is  share n  with  thf  puhrifm  program* 
THE  JSC.H  ADDRESS  IN  PLACED  IN  THE  SliH T ASK'S  TCrt 


* 

* 


#  ft  tft  >{t  $  age  sfie  *  *  #  v  $  >}e  >jc  #  *  #  ^  >;<  j{c  $  #  #  #  #  ijt  #  *  *  a|e  #  *  *  &  *  *  *{c  *  #  afic  #  age  >&  >{« #  *  aj<  *o>  »}c  jfc  >{<  *  #  »}<  #  $  $  &  jJ<  # 


ATTACH  MF=(E*( 1)  )  *  S  F  =  (  F  » 
ST  R3*  TCBJBL ( RB ) 

L  R3,  LCTODRTY 

USING  I  FFCSCBt  R 3 

ST  Rl.CHSPB 

LTR  R11.R11 

BZ  AGG2 

01  20 ( R 1 ) , X • 20 • 

AGG2  EOII  * 

LR  R  1 1 ,  R 1 

ST  R7,TCBTI0T(0,RB) 

a 

L  R1,CVTPTR 

TM  CVTDCRIRl ),MP6BFLAG 

BZ  MPNDBYPS 

L  RO, MPNOFLGS 

LA  R 1 » QO I ,  R 1 1 1 

SVC  STATUS 

MPNDBYPS  FOU  a 

LA  R0,LCTTMWRK+4 

LR  R  10 ,  RO 

CLC  H0URS24I4) , 0 ( R 1 0 ) 

BH  SETT IME 

LA  R7,l 

a 


MS)) 

RESTDRF  JDBLIB  POINTER  M4009 

ADDRESS  OF  CSCB  127? 

CSCB  ADlJRESSABLI  ITY  1272 

STORE  TCB  ADDRESS  IN  CSCR  1272 


IS  TCB  BIT  TO  HE  SET  FOR  GRAPHICS 
BRANCH  IF  NO 
SET  TCBGRPH  BIT  IN  TCP. 

SAVE  ATTACHED  JOBSTEP  TCP  A DDR 
RFSTDRF  THE  POINTER  TO  THF 
INITIATOR'S  TIOT 

GET  CVT  ADDRESS  MPA? 

TEST  IF  MULTIPROCESSOR  MPA? 

Nn,  JOBSTEP  NnT  RUNNING  MP65 

PARM  FDR  STATUS  SVC  MP69 

PASS  JOBSTEP  TCB  ADDRESS  MP65 

SFT  TCB  NONDI SPATCHABLE  MP65 

MPAS 

ADDRESS  OF  TIME  INTERVAL 
PUT  ADDRFSS  IN  R 10 
CHFCK  FOR  INDICATION  THAT  STEP 
IS  NOT  TO  BF  TIMFD 
SET  SWITCH  TO  INDICATE  TIMER 
WAS  NOT  SET 


M VC  4(4, RIO) ,TllHRS24 

a 


SET  T I MF  REMAINING  FIELD  OF 
TIMER  WORK  AREA  TO  1440  MIN 


0  290  BO  1 o 

II?  Vll-'l  I  w 

0290 AO  1 9 
0290A9 ) v 
n?so  n\  i  w 

02907919 
0290H0 1 9 
0290RS 1 9 
02909019 
029099 ] 9 
029100 1 9 
02910919 
02911019 

029119)9 
02912019 
0291291 9 

0291  BO  1.9 
0291 391 9 
02914019 
0291491 9 
02919019 
02919919 
029 l AO  19 
0291A919 
02917019 
02917919 
0291B019 
0291B919 
02919019 
02919919 
02920000 
02920719 
02921019 
029220)9 

029229)0 

0?  9240 1  A 
0292H01 A 
02932017 
029  3 A  0 ) A 
02940000 
02960000 
02 9 R 0000 
029R201 B 
02  9R40 1 3 
029BA01 B 
029RB01 B 
029900 1 B 
0299201H 
0299401 B 
03000000 
03020000 
03040000 
03060000 
03080000 
03100000 
03120000 
03140000 


* 

* 

* 

SETT  I  ME 

BYPASS 


NONSYSTK 

GOWAIT 


SD06320 


SD63020 


NOSMF 

NOTEST 


a 

a  w  n  A  r  r 

t/  1  t  M  J  J 

-100- 

Sn  THAT  IF  THIS  IS  A  CATALOGED 
PROCFDURE  THE  REMAINING  STEPS 
WILL  ALSO  NOT  HE  T  ?  M  F  n 

BRANCH  AROUND  STIMER  MACRO 

SR 

R  7  f  R  7 

SET  SWITCH  TO  INDICATE  TIMER 

STIMER 

:  TASK, EXIT, BiNTVL= 

WAS  SET 

(0)  SET  TIMER 

eoo 

L 

$ 

R6, LCTPARM1 

ADDRESS  OF  SYS  TASK  PARM 

1272 

LA 

R6,X0(R6) 

CLEAR  HIGH  ORDER  BYTE 

1272 

LTR 

R6,R6 

TEST  FOR  SYSTEM  TASK 

1272 

BE 

NONSYSTK 

BRANCH  NOT  SYSTEM  TASK 

1272 

MVC 

X0(X16,R61 ,LCTPARM1  INITIALIZE  PARM  LIST 

1272 

L 

R 1  ,SPOOL253 

FREE  SUBPODL  253 

M3441 

LA 

RO, IEFEND-IEFLDT 

LENGTH  OF  LCT 

1272 

OR 

RO  ,R  1 

SP  AND  LENGTH  IN  REG  0 

1272 

FREEMAIN  R,LV=(0) ,A=(4) 

FREE  LCT 

1272 

LR 

R 1 3 , R6 

ADDRESS  OF  PARM  AREA 

1272 

B 

GOWAIT 

1272 

LA 

R 13  ,  LCTP ARM1 

AODRfSS  OF  PARM  IN  LCT 

1272 

EOU 

* 

1272 

LR 

R1.R2 

ADDRESS  OF  ECH  LIST 

L 

R2,4 ( 0,R 1 ) 

ADDRESS  OF  CANCEL  ECH 

N I 

TCBPKF  +  5IR11  )  ,255- 

STMCFLAG  SET  TCB  DiSPATCHABLE 

MP65 

WAIT 

LTR 

ECBL I ST= ( 1 ) 

RO ,  R9 

DIO  INIT  HAVE  TD  CHAP  UP 

1241 

B  l 

S006320 

NO,  BRANCH  and  continue 

1241 

CHAP 

(0) 

CHAP  INIT  BACH  DOWN 

1241 

MVC 

TCBP0E(X4,R5) ,TCBP0E(R11 1  UPDATE  POE  PT  IN  INIT  TCB 

1272 

CL  I 

XO ( R1 3 ) , PKEZERD 

IS  PROTECT  KEY  TO  BE  ALTERED 

1272 

BZ 

S063020 

BRANCH  NO 

127? 

MVC 

TCBPKF(X1,R5) , XO ( R 1 3 )  RESTORE  PROTECT  KEY  INIT  TCB 

1272 

EOU 

# 

CR  1 7 

LTR 

R  7 ,  R7 

CHECK  TO  SEE  IF  TIMER  WAS  SET 

BC 

2, NOTEST 

TP  NOT  BRANCH  AROUND  TTIMER 

TTIMER 

:  CANCEL 

TEST  TIMER 

L 

R9,TCBTCT(R5) 

GET  PTR  TO 

1272 

LA 

R9 ,0( R9 ) 

TCT 

SMF 

LTR 

R9,R9 

DOFS  SMF  APPLY 

SMF  1 

BZ 

NOSMF 

NO 

LM 

R 14 , R 1 5 »  TC TSTOF 

GET  TIME  EXTENSIONS  IF  ANY 

SMF1 

XC 

TCTSTOFI 8) ,TCTSTOF 

AND  CLEAR  EXT  FLO 

SMF  1 

0 

R  14 , CON385 

CONVERT  TU  TO  HUND  SEC 

SMF  1 

A 

R15,0{R10) 

ADD  IN  ORIG  VALUE 

SMF  1 

ST 

R15.0IR10) 

SAVE  ADJ  VALUE 

SMF  1 

FOU 

ST 

* 

RO, 4 ( R 10 ) 

SAVE  TIME  REMAINING 

FOU 

TM 

* 

0(R2), POSTBIT 

WAS  CANCEL  SPECIFIED  7 

BZ 

S 06  30 10 

NO 

CL  I 

CHSPC+Xl,SYSCNCt 

CHFCK  TO  SEE  IF  THE 

1272 

BE 

COOE422 

system  cancelled  job 

1272 

TM 

XO ( R2 ) , X32 

WAS  JOB  CANCELLED  W/OU'T  DUMP 

1272 

BZ 

S 006 710 

NO 

1272 

MVC 

chspc(X4) ,cooei 

MOVE  IN  ABEND  CODE 

1272 

B 

S006730 

CONTINUE  PROCESSING 

1272 

EOU 

* 

1272 

03160000 
03180000 
032  00000 
03220000 
03240000 
03260000 
03280000 
03300000 
03301019 
03302019 
03303019 
03304019 
03304519 
03305519 
03307019 
03308019 
03309019 
03310019 
03311019 
03312019 
03313019 
03320000 
03340000 
033500)8 
03360000 
03360418 
03360818 
03361218 
03362219 
03364619 
0.^67619 
03370619 
03374017 
03380000 
03400000 
03420000 
03421019 
03423018 
03424018 
0342  5018 
03426018 
03427018 
03428018 
03429018 
03430018 
03431018 
03440000 
03460000 
03580000 
03600000 
03604019 
03606019 
03608019 
03610019 
03612019 
03614019 
03616019 


SD06710 
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SD06720 

CODE 42 2 
S006730 

SD63010 


SD06328 

SD06329 


SD06330 

* 

* 


TM 

X0(R2)  ,Xlft 

WAS  jnB  CANCEL  l  F  0  WITH  OIIMP 

127? 

BZ 

S006720 

NO 

I  2  7  2 

MVC 

CHSPC ( X4 | *  CODE 2 

1N0ICATF  DUMP 

1J73 

8 

SD06730 

CONTINUE 

12  72 

EOI) 

# 

127? 

MVC 

CHSF  C ( X4 > .C0DE3 

TIMER  FXPIREO  -  DUMP 

I  27? 

H 

SD06730 

CONTINUE 

127? 

EQIJ 

* 

12  72 

MVC 

CHSPC ( X4 ! ,C0DE4 

MOVE  SYSTEM  CANCEL  CODE 

1272 

ECHI 

* 

I  272 

ni 

TCBFLGS  +  X1 (Rll  )  fTCBSTI  [NDIC  NO  STAR  OPERATIONS 

1272 

01 

CHST  S i CHART  ER  M 

INDICATE  AH  TERM  FOR  SVC  34 

1272 

LA 

R 1  *  XO ( R  3  I 

ADDRESS  UF  CSCB 

1272 

MGCR 

( 1 ) , CHAIN 

GO  TO  ABTERM  VIA  MASTER 

I  272 

LA 

R 1 » I SFAECH 

ADDRESS  OF  ATTACH  FCB 

l?7?. 

WAIT 

ECB=  (  1  ) 

WAIT  ON  ATTACH  EC R 

1272 

SR 

RO.RO 

CLEAR  REGISTERS  TO  INDICATE 

SR 

RUR1 

FREE  ALL  OF  SUBPOOL  ZERO 

FREEMA1N  R , L V= ( 0 ) , A = ( 1 )  SUBPODL  ZERO 

L 

R10,X12(R13) 

SAVF  SP  AND  LENGTH  OF  GWT 

1272 

L 

k7  *  XB 1 R 13 ) 

ADDRFSS  nF  GWT 

M4160 

LA 

R7,X0(R7) 

ZERO  HIGH  ORDER  BYTE 

M4160 

ST 

R3,  XRIR13) 

STORE  CSCB  ADDRESS 

M4160 

MVC 

XB(X1,R13),TC8DSP(R11)  MOVE  DISPATCHING  PRIORITY 

M  4 1  6  0 

MVC 

CHPKE(X1(,TCBPKFIR11 1  SAVE  PROTECT  KEY  IN  CSCR 

M3  76  7 

MVC 

X0(X1,R13) tTCHFLGSlRll)  SAVE  TCRFLGS 

12  7? 

MVC 

X1IX3.R13) .TCBTCT+X1 < R1 l )  SAVE  TCT  PTR 

1  2  72 

MVC 

X12IX4.R13) fTCBTCC (Rll )  SAVE  TASK  COMPLETION  CODE  1272 

XC 

TCBFSA+X 1 ( X3  »R1 1 ) * 

TCHFSA+X 1 ( R  1 1  ) 

1272 

ZERO  PGM  SAVE  AREA  PTR 

1272 

LA 

RltCHSPB 

ADDRESS  OF  SUBTASK  TCB 

1272 

DETACH  (11 

1272 

USING 

GETPTWT  tR7 

M4 160 

LTR 

R7*R7 

DnES  GWT  STILL  EXIST 

BE 

SD06330 

BRANCH  NO  GWT 

1272 

L 

R14.LCTTCBAD 

GET  INITIATOR'S  TCB. 

L 

R  14 » 1 2 ( R 14  ) 

BUMP  TO  THE  TIOT. 

CLI 

0  (  R  1 4  )  » C  1  F  1 

FIXED  INITIATOR? 

BE 

SD06330 

BRANCH  TO  KEEP  CURRENT  REGION. 

EREtMAIN  R  .  5  P  =  247 

FREE  REGION 

1272 

MV  1 

GPSUBP • P00L2.47 

INDICATE  GET  REGION 

12  72 

XC 

GPAODHOl'XB  1  .GPADDHO  ZERO  SPECIFIC  ADDRESS 

1272 

TM 

X7IR13) .LCTIH1ER 

TEST  HIERARCHY 

M2696 

BO 

SD06328 

BRANCH  HIERARCHY  1 

12  72 

MVC 

GPSIZEH0(X4) tGPSIZET  MOVE  REGION  SIZE 

I?  72 

M  VI 

GPSIZEHO.ENDLIST 

INDICATE  END  OF  LIST 

12  72 

B 

S006329 

1272 

MVC 

GPSIZEH1+X1 C  X  3 ) fGPSIZET  +  Xl 

1272 

LR 

R  1 1 R7 

ADDRESS  OF  GWT  IN  REG  ONE 

M2695 

GETMAIN  t MFa ( F  * ( 1 ) ) 

GET  NEW  REGION 

1272 

LR 

R1.R7 

ADDRESS  OF  GWT  TO  RE  PREED 

M4160 

LR 

ROtRlO 

SP  AND  LENGTH 

12  72 

FREEMAIN  R  ,LV« < 0 ) , A* (  1 ) 

1272 

EOI) 

* 

1272 

ST 

R6,X\6^R6) 

STORE  ADDRESS  OF  PARM  AREA  FDR 

1272 

SYSTEM  TASKS.  R6  WILL  BE  ZERO 

I  272 

FOR  NON  SYSTEM  TASKS. 

127? 

03618019 
03(420019 
ni*9?ni a 
03424019 
03424019 

D342H019 
03430019 
034320  1  9 
03434019 
03434019 
0  3  4  3  8  0  1 9 
03440019 
03442019 
03444019 
03444019 
0  3  6  4  8  0  l  9 
03443019 
0  3  6  5  8  0 1  Si 
03443019 
03448019 
03473019 
03478019 
03483019 
03488019 
03700719 
03701019 
03701519 
03702019 
03702519 
03703019 
03703519 
03704019 
03704419 
03705219 
03704019 


03707519 

03708019 

03708519 

03709019 

03709419 

03710019 

03710519 

03711019 

03711519 

03712019 

03712519 

03713019 

03713519 

03714019 

03714519 

03715519 

03716019 

03716519 


-102- 


L  R 

Rl,R8 

PARAMETER  LIST  POlMTFR 

03720000 

X  C  T  1 . 

FP=  I  F  FSU1  ,mf 

=  I  F  ,  (  1  )  ) 

0  3  74 OD 00 

F  X  I  T 

FOO 

>lf 

EXIT  RTN  USED  WHEN  TIMER  EXP 

03760D1 9 

LR 

R1  ,R? 

CANCEL  FCR 

n  1  T  f  i'  "  n 
w  ^  ii.uimm; 

t.  ^ 

SAVE  REG  14 

03800000 

POST  (1) 

POST  CANCEL  FCR 

03820000 

L« 

R  1 4  ,  o  7 

REST  OR  F  REGISTER  14 

03840000 

RETURN 

03860000 

HOUR  S24 

nc 

F'8640000' 

1440  MINUTES! In  HUNORFOTHS  OF 

03880000 

SECONDS) 

03900000 

TllHR  S?4 

nc 

X  '  C  5  ' 

1440  MINUTES  IN  TIMER  UNITS 

A248R7 

03920019 

nc 

X  '  C  1  • 

IE  SPECIFIED  ON  FXECUTF  CARD 

A24887 

03940019 

nc 

X  '  00  1 

THE  .HIH  IS  NOT  TO  RF 

A24R87 

03960019 

nc 

X  '00' 

T  1  MFD 

A24887 

03990D] 9 

A 

ns 

F 

04020000 

ALI.CURF 

DC 

X 1  OOF  FFFFft ' 

04040000 

spnni.253 

nc 

x 1 Foonnooo' 

M3441 

04041019 

MPNDFLGS 

DC 

ALP  1 STMCFLAG  )  , 

AI.2ISTATFL  AG)  STATUS  SVC  PARMS 

MP65 

04043018 

CDto385 

nc 

F  '385  ' 

Til  TO  HIIND  SEC 

SMF1 

04046018 

SMFAT 

nc 

VI I EFSMFAT) 

SMF  TCT  BUILDER 

SMF1 

0405201R 

xo 

FOU 

0 

1272 

04052419 

XI 

FOll 

1 

1272 

04052819 

X  3 

F  00 

3 

1272 

04053219 

X4 

FOlj 

4 

1272 

04053619 

X  8 

F  rou 

R 

1272 

04054019 

XI  6 

Foil 

16 

DISPLACEMENT 

1272 

04054419 

X  3? 

FOll 

3? 

DISPLACEMENT 

1272 

04054819 

syscncl 

FOIl 

X  '4?  ' 

SYSTEM  CANCFL  INDICATOR 

1272 

04055219 

pnriLP47 

FOll 

247 

1272 

04055619 

FNOL I  ST 

Foil 

X  '80' 

1272 

04056019 

PPARENO 

FOU 

X  '80' 

T272 

04056419 

TCRFSA 

ECU 

112 

04056819 

TCRFLGS 

FOU 

29 

1272 

04057219 

TCHPOF 

FOU 

X  *98  ' 

1272 

04057419 

TCRSTI 

SOU 

X  '40' 

12  72 

04057619 

CHOFl 

DC 

X  '00222000' 

JOB  CANCELLED  -  NO  DUMP 

1272 

04058019 

C00F2 

DC 

X '80122000' 

JOB  CANCELLED  -  DUMP 

12  72 

04058419 

CO  OF  3 

DC 

X  '80322000' 

TIMER  EXPIRED  -  DUMP 

1272 

04058819 

C0DF4 

DC 

X  '00422000' 

EXCEEDED  SPEC  QUEUE  SPACE 

1272 

040592 1 5 

POSTHIT 

FOll 

X  '40' 

0406000C 

PKFZFRO 

FOIJ 

X  '  00 ' 

127? 

04062015 

TCoTCC 

FOU 

X  '  10' 

1272 

04064019 

TCRPKF 

EQIJ 

28 

1272 

04066019 

TCHOSP 

FOll 

X  '  23  ' 

M4160 

0406701 9 

X  6 

FOll 

6 

1272 

04068019 

X7 

FOU 

7 

M  2  6  9  6 

04069019 

XI? 

FOU 

12 

1272 

04070019 

X?  4 

FOll 

24 

1272 

04072019 

TCORF 

FOU 

253 

1272 

04074019 

1  FFUSEP 

MVC 

0(0tRl)»O(R7) 

MOVE  USER  PARM  FROM  253  TO  ZERO 

04080000 

TCBJRL. 

FOU 

40 

JOBLIB  POINTER  DISPLACEMENT  IN 

04100000 

TCB 

04120000 

TCBTtOT 

FOU 

12 

TIUT  PTR  DISPLACEMENT  IN  TCP 

04140000 

TCBTCT 

FOU 

164 

* 

SMF  1 

04150018 

I FFPAR AM 

DSECT 

0416(i000 

I EFUSADD 

DS 

F 

ADDRESS  OF  IJSFR  PARAMFTERS 

04180000 

I  FFFCBLA 

DS 

F 

ADDRESS  OF  ECB  LIST 

04200000 

-103- 


I EFREMLS 

os 

F 

AOORFSS  OF  SHPFRVl  SIR  1.  LIST 

M4??rw-fif, 

I  EFI.CTA0 

OS 

F 

ADDRESS  nF  LCT 

I  FFTCBAfl 

OS 

F 

AflDK  F  S S  OF  T ('. H 

ri4?6D0(;ri 

T  CCT  f  r\  r  A 

1 » r 

r 

I1NUK  f.SS  III-  1  |  II  | 

Q42Mi'0ufi 

1 EFDCBAO 

ns 

F 

AllDRFSS  OF  DCH 

12  70 

<:4?‘jiTi>  1  p 

I EEECBL1 

os 

2F 

FCH  LIST 

04300000 

IEFAECB 

ns 

r 

ATTACH  Ft.K 

04320000 

1 EFPLENO 

FOIJ 

# 

1)4  32801  9 

IEFPSIZF 

FOU 

iffplfmo-iefparam 

0433601 V 

IEFTCT 

0434401 H 

0EC246 

FOU 

246 

NUMERIC  FOUATF 

0434801 H 

DEC24 

EOU 

24 

NUMERIC  FOUATF 

04  352018 

DECO 

E0!J 

0 

numeric  FOUATF 

04386013 

>.■«  *  *  *  #  *  >.v  *  #  #  #  #  *  »!*  $  #  #  #  »ft  *<  #  >:« «  #  #  =:<  >!«  ijt  >;c  *  j:«  »*<  #  *  $  #  # $  *  *  #  #  3>  >;<  j.c  tt  #  j;<  #  *  #  ^  £  >:«  #  *  #  »n  >*  v  #  * 

$  j!<  j!<  ix  X 

04380000 

* 

04400000 

* 

THE 

FOLLOWING  REPRESENTS  A  BLOCK  OF  MAIN  STORAGE  WHICH  IS 

*> 

04420000 

>* 

ALLOCATED 

FOR  THE  LIFE  OF 

04440000 

* 

OF 

THIS  INITIATOR.  IT  CONTAINS: 

# 

04460000 

* 

04480000 

# 

(  1  ) 

THF  LCT  (LINKAGF  CONTROL  TAHLF) 

04500 000 

(2) 

A  2  LFVFL  REGISTER  SAVE  AREA  FOLLOWED  BY  THE 

V 

04520000 

* 

THE  QUEUE  MANAGER  PARAMETER  ARFA 

s;c 

04540000 

* 

{ 3  ) 

AN  ALTERNATE  OUEtlE  MANAGER  PARAMETER  AREA 

04560000 

* 

04  58  0000 

j.  >,<  *  >;«  $  x,t  j;<  t\t  sjc  >jc  $  #  *<  *>;«#*  *  j;<  *  >;c  $  *  fc  #  *  ajt  >;<  *  *  *  *  #  #  >;c  >je  >;t  #  >.<  >;<  >;«  #  #  i;c  j*  >5*  #  >;<  >:<  >;t  »;i  ^  #  *  *  #  *  *  *  s:t  #  *  *  #  *  *  *  *  v 

04600000 

I EFLOT 

DSECT 

046?  0000 

ieeallct 

04640000 

LCTBATMN 

OS 

F 

I*##*# TO  |3E  AOOFO  TO  LCT 

04660000 

LCTSOOMP 

ns 

F 

44444T0  HE  AOOFn  TO  LCT (VMS  ONLY)  POINTER  TO 

046HQ000 

* 

SYSOUT  QUEUE  MANAGER  PARAMETER  AREA 

04700000 

lctrtrn 

os 

F 

=i‘»M>mn  HE  ADDED  Tn  LCT  (VMS  ONLY)  INITIATOR'S 

04720000 

# 

RETURN  POINT 

04740000 

LCTINTSW 

OS 

OF 

INITIATOR  INTERNAL  SWITCHES 

1272 

04742019 

LCTIHIER 

sou 

128 

RUN  IN  HIERARCHY  ONE 

1272 

04744019 

LCTSDOXX 

EOII 

32 

ATTACH  1 FFSOOXX 

12  72 

04746019 

LCTMINRG 

EOU 

16 

JDK  FLUSH  -  USE  MINPAR 

1272 

04748019 

lctstart 

EOII 

8 

TASKNAMF  NOT  ON  COMMAND 

1272 

04750019 

LCTSTOP 

EOU 

4 

INITIATOR  INTERNAL  STOP 

12  72 

04752019 

LCTCSCH 

OS 

F 

*####70  HE  ADDED  TO  LCT (VMS  ONLY)  INITIATOR  CSCB 

04760000 

* 

ADDRESS 

04780000 

LCTTMWRK 

OS 

4F 

*,!=#**T0  BF  AOOFO  TO  LCT(VMS  ONLY!  TIMER  WORK  ARFA 

04800000 

LCTJOBLR 

DS 

F 

****#70  RE  AOOFO  TO  LCT (VMS  ONLY)  JDBLIB  OCR  PTR 

04820000 

LCTATLST 

DS 

F 

*#**#T0  be  ADOEO  TO  LCTIVMS  ONLY)  POINTER  TO 

04840000 

# 

ALLOCATF/TERMI NATF  PARAMETER  LISTS 

04860000 

REGSAVE 

OS 

36F 

REGISTFR  AVE  AREA 

04880000 

QMGR1 

DS 

9F 

QUEUE  MANAGER  PARAMETER  AREA 

04900000 

OMGR2 

OS 

9F 

ALTERNATE  QUEUE  MANAGER  AREA 

04970000 

OS 

8F 

12  72 

04920919 

*  these 

i  FIELDS  ARE  NEEDED  FOR  L-SHAPE/INIT  MERGE  * 

1272 

04921819 

ns 

OF 

1272 

04922719 

LCTflPSW  1 

DS 

OC 

INITIATOR  OPTIONS  BYTE  1 

127? 

04923619 

ICTPKEYF 

EOII 

128 

DON'T  GET  PROTECT  KFY 

1272 

04924519 

LCTDWFF 

EOU 

64 

IIONT  PROCESS  DEOICATFO  WORKF 

127? 

04925419 

LCTSTMDF 

EOU 

32 

I10NT  PROCESS  STOP/MOOIFY 

1272 

04926319 

LCTMINPF 

EOU 

16 

GET  REGION  SIZF  SPECIFIED 

1272 

04927219 

LCTCANF 

FOU 

8 

ALLOW  CANCEL  ONLY  AT  ALLOC 

1272 

04928119 

LCTONEJ  F 

EOU 

4 

PROCESS  ONLY  ONE  JOB 

1272 

04929019 

104- 


LCTICMDF 

60U 

Z 

00 NT  PROCESS  INITIATOR  CMOS 

1272 

04929919 

LOT  EX  1  T 

ns 

* 

12  n 

04930ft 19 

LCTDPSW? 

ns 

or. 

INITIATOR  OPTIONS  RYTE  2 

1272 

04931719 

1.CTT1  MEF 

EOU 

128 

DONT  TIME  THIS  JOR 

1272 

04932619 

LCTCRF 

E  01 J 

64 

00 NT  ALLOW  CHECKPT /RESTART 

12  72 

04933619 

LCTDSOF 

EOU 

32 

DONT  PROCESS  DSO 

1272 

04934419 

lctimtho 

EOIJ 

16 

EXECUTE  INITIATOR  IN  HI ER  0 

1272 

04935319 

LCTIMTH1 

eon 

8 

EXECUTE  INITIATOR  IN  H I ER  1 

1272 

04936219 

LCTCOM 

ns 

F 

COMMUNICATIONS  PARM  AREA  PTR 

1272 

04937119 

LCTJSCB 

ns 

F 

ADDRESS  OF  JSCB 

04938019 

IFFENO 

FOU 

# 

END  OF  L I FE-OF-T ASK  BLOCK 

04940000 

* 

ORDER  BYTE  OF  R15 

04960000 

IEFCSCB 

nsECT 

1272 

08960019 

IEECHAIN 

1272 

12960019 

GETPTkT 

nSECT 

16960019 

GPS  IZEA 

DS 

IF 

CONTAIN 

THE  ADDRESS  OF  THE  REGION  SIZE  LI 

LS 1 7 

20960019 

GPADOLT 

DS 

IF 

CONTAIN 

THE  ADDR  OF  ADDR  LIST  FOR  THE  HIE 

LSI  7 

24960019 

OPCODE 

ns 

X'O' 

CONTAIN 

80  TO  INDICATE  UNCONDITIONAL  RFGU 

LS  1 7 

28960019 

GPSU8P 

DS 

X'O' 

CONTAIN 

SlIBPOOL  247  OR  246 

LS  1 7 

32960019 

ns 

H  'O' 

LS  1 7 

36960019 

GPHl ARCO 

OS 

OF 

contains 

00 

L  S 1 7 

40960019 

GP6D0HO 

OS 

IF 

CONTAINS 

ADDRESS (SPECIFIC)  * Z ERD ( NON-SP EC 

LS  1  7 

44960019 

GPHIARC1 

DS 

OF 

CONTAINS 

01 

L  S 1 7 

48960019 

GPADDH1 

ns 

IF 

CONTAINS 

ADDRESS (SPECIFIC)  ,  ZERO! NON-SP EC 

L  S 1  7 

52960019 

GPS IZEHO 

DS 

IF 

SIZE  OF 

HO 

LS  1  7 

56960019 

GPS IZEH1 

ns 

IF 

SIZE  OF 

HI 

LS  1  7 

60960019 

GPS  IZEPP 

ns 

IF 

REGION  SIZE  FOR  P/P 

1272 

64960019 

GPS  IZET 

DS 

IF 

REGION  SIZE  FOR  TERMINATE 

1272 

68960019 

GPAODHOR 

ns 

IF 

ORGINAL 

ADDRESS 

CR 1 7 

72960019 

GPMINPAR 

DS 

IF 

247  +  MINIMUM  REGION  SIZE 

CR 1 7 

76960019 

IEZATTCH 

80960019 

END 

84960019 

